Output manifest and update param names

R/build_dashboard.R

@@ -33,4 +33,39 @@ build_dashboard <- function(
     )
   }
 
+  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)
+
 }

R/prepare_pacta_dashboard_data.R

@@ -10,15 +10,15 @@ log_info("Preparing data for the PACTA dashboard.")
 # portfolio/user parameters ----------------------------------------------------
 log_debug("Reading portfolio/user parameters.")
 
-investor_name <- params[["user"]][["investor_name"]]
+investor_name <- params[["user"]][["name"]]
 portfolio_name <- params[["portfolio"]][["name"]]
 peer_group <- params[["user"]][["peerGroup"]]
 language_select <- params[["user"]][["languageSelect"]]
 
 currency_exchange_value <- params[["user"]][["currencyExchangeValue"]]
 display_currency <- params[["user"]][["displayCurrency"]]
 
-select_scenario_other <- params[["reporting"]][["selectOther"]]
+select_scenario_other <- params[["reporting"]][["scenarioOther"]]
 select_scenario <- params[["reporting"]][["selectScenario"]]
 
 green_techs <- params[["reporting"]][["greenTechs"]]