adapt to changes to create_interactive_report() (#166)

Author: cjyetman

web_tool_script_3.R

@@ -143,12 +143,6 @@ indices_bonds_results_portfolio <- readRDS(file.path(analysis_inputs_path, "Indi
 
 # create interactive report ----------------------------------------------------
 
-report_name <- select_report_template(
-  project_report_name = project_report_name,
-  language_select = language_select
-)
-
-template_dir <- file.path(template_path, report_name, "_book")
 survey_dir <- file.path(user_results_path, project_code, "survey")
 real_estate_dir <- file.path(user_results_path, project_code, "real_estate")
 output_dir <- file.path(outputs_path, portfolio_name_ref_all)
@@ -188,13 +182,11 @@ configs <-
   )
 
 create_interactive_report(
-  repo_path = template_path,
-  template_dir = template_dir,
+  template_dir = get_report_template_path(project_report_name, language_select),
   output_dir = output_dir,
   survey_dir = survey_dir,
   real_estate_dir = real_estate_dir,
   language_select = language_select,
-  report_name = report_name,
   project_name = project_name,
   investor_name = investor_name,
   portfolio_name = portfolio_name,