Feat/34 enable parameter parsing

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: workflow.pacta.dashboard
 Title: Run PACTA dashboard JSON generation
-Version: 0.0.0.9006
+Version: 0.0.0.9007
 Authors@R:
     c(person(given = "Alex",
              family = "Axthelm",
@@ -29,11 +29,16 @@ Imports:
     dplyr,
     glue,
     jsonlite,
+    logger,
     magrittr,
     pacta.portfolio.utils,
+    pacta.workflow.utils,
     readr,
     rlang,
     stringr,
-    tidyr
+    tidyr,
+    workflow.pacta
 Remotes:
-    RMI-PACTA/pacta.portfolio.utils
+    RMI-PACTA/pacta.portfolio.utils,
+    RMI-PACTA/pacta.workflow.utils,
+    RMI-PACTA/workflow.pacta

NAMESPACE

@@ -30,6 +30,11 @@ importFrom(dplyr,summarise)
 importFrom(dplyr,tibble)
 importFrom(dplyr,transmute)
 importFrom(dplyr,ungroup)
+importFrom(logger,log_debug)
+importFrom(logger,log_error)
+importFrom(logger,log_info)
+importFrom(logger,log_trace)
+importFrom(logger,log_warn)
 importFrom(magrittr,"%>%")
 importFrom(rlang,":=")
 importFrom(rlang,.data)

R/build_dashboard.R

@@ -8,18 +8,21 @@
 ) {
 
   prepare_pacta_dashboard_data(
+    params = params,
     analysis_output_dir = analysis_output_dir,
     dashboard_data_dir = dashboard_data_dir,
     benchmarks_dir = benchmarks_dir
   )
 
+  log_info("Copying dashboard files.")
   dashboard_copy_success <- copy_dashboard_files(
     dashboard_skeleton_files_dir = dashboard_skeleton_files_dir,
     dashboard_output_dir = dashboard_output_dir
   )
 
   dashboard_output_data_dir <- file.path(dashboard_output_dir, "data")
   if (dashboard_data_dir != dashboard_output_data_dir) {
+    log_info("Copying dashboard data to correct location.")
     if (!dir.exists(dashboard_output_data_dir)) {
       dir.create(dashboard_output_data_dir, recursive = TRUE)
     }
@@ -30,4 +33,39 @@
     )
   }
 
+  out <- list(
+    input_files = c(
+      list.files(
+        dashboard_data_dir,
+        full.names = TRUE,
+        recursive = TRUE
+      ),
+      list.files(
+        dashboard_skeleton_files_dir,
+        full.names = TRUE,
+        recursive = TRUE
+      ),
+      list.files(
+        analysis_output_dir,
+        full.names = TRUE,
+        recursive = TRUE
+      ),
+      list.files(
+        benchmarks_dir,
+        full.names = TRUE,
+        recursive = TRUE
+      )
+    ),
+    output_files = c(
+      list.files(
+        dashboard_output_dir,
+        full.names = TRUE,
+        recursive = TRUE
+      )
+    ),
+    params = params
+  )
+
+  return(out)
+
 }