Strip down retained data objects where possible

Author: davidski

Diff for: inst/rmd/explore_scenarios.Rmd

@@ -32,9 +32,9 @@ results_directory <- params$results_directory
 
 ```{r load_data, include=FALSE}
 dat <- load_data(input_directory, results_directory)
-simulation_results<- dat$simulation_results
-scenario_summary<- dat$scenario_summary
-domain_summary<- dat$domain_summary
+simulation_results <- dat$simulation_results
+scenario_summary <- dat$scenario_summary
+domain_summary <- dat$domain_summary
 domains <- dat$domains
 mappings <- dat$mappings
 capabilities <-  dat$capabilities

Diff for: inst/rmd/risk_dashboard.Rmd

@@ -31,12 +31,10 @@ results_directory <- params$results_directory
 
 ```{r load_data, echo = FALSE, message = FALSE}
 dat <- load_data(input_directory, results_directory)
-simulation_results<- dat$simulation_results
-scenario_summary<- dat$scenario_summary
-domain_summary<- dat$domain_summary
+simulation_results <- dat$simulation_results
+scenario_summary <- dat$scenario_summary
+domain_summary <- dat$domain_summary
 domains <- dat$domains
-mappings <- dat$mappings
-capabilities <-  dat$capabilities
 risk_tolerances <-  dat$risk_tolerances
 risk_tolerance <- dat$risk_tolerance
 scenario_outliers <-  dat$scenario_outliers