Switch to parquet evaluation file read and write

Author: gmyenni

NAMESPACE

@@ -189,7 +189,9 @@ export(write_rodents_profiles_tab_html)
 export(www_path)
 export(zip_unzip)
 importFrom(arrow,read_csv_arrow)
+importFrom(arrow,read_parquet)
 importFrom(arrow,write_csv_arrow)
+importFrom(arrow,write_parquet)
 importFrom(bslib,bs_theme)
 importFrom(coda,HPDinterval)
 importFrom(coda,as.mcmc)

R/data_input_output.R

@@ -101,6 +101,10 @@ write_data <- function (x            = NULL,
 
       write_yaml(x, file = full_path)
 
+    } else if (file_ext(filename) == "parquet"){
+      
+      write_parquet(x, file = full_path)
+      
     } else if (file_ext(filename) == "json"){
 
       x2 <- serializeJSON(x = x)

R/evaluate.R

@@ -351,7 +351,7 @@ read_forecasts_evaluations <- function (main = "."){
 
   } else {
 
-    out <- as.data.frame(read_csv_arrow(file = eval_path))
+    out <- as.data.frame(read_parquet(file = eval_path))
 
     if ("species" %in% colnames(out)) {
       out <- na_conformer(out)

R/portalcasting.R

@@ -1,4 +1,4 @@
-#' @importFrom arrow read_csv_arrow write_csv_arrow
+#' @importFrom arrow read_csv_arrow write_csv_arrow read_parquet write_parquet
 #' @importFrom bslib bs_theme
 #' @importFrom coda as.mcmc HPDinterval
 #' @importFrom english english

R/zip_unzip_forecasts.R

@@ -79,7 +79,7 @@ zip_unzip <- function(type = NULL,
     }
 
     # Zip forecasts_evaluations.csv
-    eval_file <- paste0(proj_path, "/forecasts_evaluations.csv")
+    eval_file <- paste0(proj_path, "/forecasts_evaluations.parquet")
     zipfile <- paste0(proj_path, "/forecasts_evaluations.zip")
     zip_files(zipfile, eval_file)
   }

portalcasting.Rproj

@@ -15,3 +15,4 @@ LaTeX: pdfLaTeX
 BuildType: Package
 PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source
+PackageRoxygenize: rd,collate,namespace