Update run_pacta_data_preparation.R

RMI-PACTA · Jan 21, 2024 · 600797d · 600797d
1 parent 68f1f41
commit 600797d
Showing 1 changed file with 16 additions and 6 deletions.
diff --git a/run_pacta_data_preparation.R b/run_pacta_data_preparation.R
@@ -63,18 +63,25 @@ masterdata_debt_path <-
 ar_company_id__factset_entity_id_path <-
   file.path(data_prep_inputs_path, ar_company_id__factset_entity_id_filename)
 
+factset_financial_data_path <-
+  file.path(data_prep_inputs_path, "factset_financial_data.rds")
+factset_entity_info_path <-
+  file.path(data_prep_inputs_path, "factset_entity_info.rds")
+factset_entity_financing_data_path <-
+  file.path(data_prep_inputs_path, "factset_entity_financing_data.rds")
+factset_fund_data_path <-
+  file.path(data_prep_inputs_path, "factset_fund_data.rds")
+factset_isin_to_fund_table_path <-
+  file.path(data_prep_inputs_path, "factset_isin_to_fund_table.rds")
+factset_iss_emissions_data_path <-
+  file.path(data_prep_inputs_path, "factset_iss_emissions.rds")
+
 
 # pre-flight filepaths ---------------------------------------------------------
 
 scenarios_analysis_input_path <- file.path(data_prep_inputs_path, "Scenarios_AnalysisInput.csv")
 scenario_regions_path <- file.path(data_prep_inputs_path, "scenario_regions.csv")
 currencies_data_path <- file.path(data_prep_inputs_path, "currencies.rds")
-factset_financial_data_path <- file.path(data_prep_inputs_path, "factset_financial_data.rds")
-factset_entity_info_path <- file.path(data_prep_inputs_path, "factset_entity_info.rds")
-factset_entity_financing_data_path <- file.path(data_prep_inputs_path, "factset_entity_financing_data.rds")
-factset_fund_data_path <- file.path(data_prep_inputs_path, "factset_fund_data.rds")
-factset_isin_to_fund_table_path <- file.path(data_prep_inputs_path, "factset_isin_to_fund_table.rds")
-factset_iss_emissions_data_path <- file.path(data_prep_inputs_path, "factset_iss_emissions.rds")
 
 
 # computed options -------------------------------------------------------------
@@ -136,6 +143,8 @@ scenario_raw_data %>%
 pacta.scenario.preparation::scenario_regions %>%
   write_csv(scenario_regions_path, na = "")
 
+logger::log_info("Pre-flight data prepared.")
+
 
 # web scraping -----------------------------------------------------------------
 
@@ -150,6 +159,7 @@ if (update_currencies) {
 logger::log_info("Scraping index regions.")
 index_regions <- pacta.data.scraping::get_index_regions()
 
+
 # intermediary files -----------------------------------------------------------
 
 logger::log_info("Preparing scenario data.")