rename json dir var to output dir

angelina-momin · angelina-momin · commit 1b63f11b33de · 2024-09-06T11:45:46.000+02:00
diff --git a/R/utils_create_filtered_register_csvs.R b/R/utils_create_filtered_register_csvs.R
@@ -44,8 +44,8 @@ create_filtered_reg_csvs <- function(register, filter_by){
       filtered_register <- filtered_register_list[[i]]
       table_details <- generate_table_details(register_key, filtered_register, filter)
       filtered_register <- filter_and_drop_register_columns(filtered_register, filter)
-      json_dir <- paste0(table_details[["output_dir"]], "register.csv")
-      write.csv(filtered_register, json_dir, row.names=FALSE)
+      output_dir <- paste0(table_details[["output_dir"]], "register.csv")
+      write.csv(filtered_register, output_dir, row.names=FALSE)
     }
   } 
 }

Original file line number	Diff line number	Diff line change
`@@ -44,8 +44,8 @@ create_filtered_reg_csvs <- function(register, filter_by){`
`44`	`44`	`filtered_register <- filtered_register_list[[i]]`
`45`	`45`	`table_details <- generate_table_details(register_key, filtered_register, filter)`
`46`	`46`	`filtered_register <- filter_and_drop_register_columns(filtered_register, filter)`
`47`		`- json_dir <- paste0(table_details[["output_dir"]], "register.csv")`
`48`		`- write.csv(filtered_register, json_dir, row.names=FALSE)`
	`47`	`+ output_dir <- paste0(table_details[["output_dir"]], "register.csv")`
	`48`	`+ write.csv(filtered_register, output_dir, row.names=FALSE)`
`49`	`49`	`}`
`50`	`50`	`}`
`51`	`51`	`}`