feat: compress all output json files into a archive.zip

[jdhoffa]

In the dashboard, we wish to allow users to download the input datasets. This would facilitate that.

[cjyetman]

I think this was resolved by #82

[jdhoffa]

It was not.
In RMI-PACTA/pacta-dashboard-svelte#82 (a different repo) a button was created that allows users to download a .zip archive.

This issue tracks the actual creation of that .zip archive (if it doesn't exist, the button won't do anything).

Acceptance criteria:

• workflow.pacta.dashboard creates a .zip of all .json assets after a run is complete
• (Nice-to-have) the .zip contains .csv files rather than .json files (probably more user friendly)

[cjyetman]

huh... currently on https://rmi-pacta.github.io/pacta-dashboard-svelte/ if I click the "Save Data" button it downloads an "archive.zip" which contains JSON files.

[jdhoffa]

Indeed, because the archive.zip was manually created and merged into the sample-data directory that is used to spin up that dashboard.
It is out of sync with this repo, that's what this tracking issue is for 😊

[AlexAxthelm]

Disabled as part of #35

[jdhoffa]

I was able to locally reproduce the error mentioned in #35 :

workflow.pacta.dashboard-1  | Error in write_delim(x, file, delim = ",", na = na, append = append, col_names = col_names,  : 
workflow.pacta.dashboard-1  |   is.data.frame(x) is not TRUE
workflow.pacta.dashboard-1  | Calls: <Anonymous> ... zip_outputs -> %>% -> <Anonymous> -> write_delim -> stopifnot
workflow.pacta.dashboard-1  | Execution halted
workflow.pacta.dashboard-1 exited with code 1

Investigating.

[jdhoffa]

The error occurs because the datasets data_company_bubbles.json and data_techexposure.json are empty.

These empty JSON files are then read into R as a list() object, and the list object cannot be written to a .csv file.

My recommendation here would be to add a check prior to calling jsonlite::write_json() every time in the script, and to not write an empty data frame in the first place, e.g. here:

workflow.pacta.dashboard/R/prepare_pacta_dashboard_data.R

Lines 149 to 157 in 0ab208c

	audit_file %>%
	prep_audit_table(
	investor_name = investor_name,
	portfolio_name = portfolio_name,
	currency_exchange_value = currency_exchange_value
	) %>%
	translate_df_contents("data_included_table", dictionary, inplace = TRUE) %>%
	translate_df_headers("data_included_table", language_select, header_dictionary) %>%
	jsonlite::write_json(path = file.path(output_dir, "data_included_table.json"))