Make sure issue_date is always the last col

Author: nmdefries

facebook/contingency-combine.R

@@ -163,6 +163,7 @@ combine_tables <- function(seen_file, input_dir, input_files, output_file) {
     # which is a stable sort, ties will result in the input data being used in
     # preference over the existing rollup data.
     output_df <- bind_rows(output_df, input_df) %>%
+      relocate(issue_date, .after=last_col()) %>% 
       arrange(issue_date) %>% 
       group_by(across(all_of(group_names))) %>% 
       slice_tail() %>%