diff --git a/0_global_functions.R b/0_global_functions.R index 5e0f738f..a96ef122 100644 --- a/0_global_functions.R +++ b/0_global_functions.R @@ -43,6 +43,89 @@ set_col_types <- function(grouping_variables, fixed_col_types) { return(port_col_types) } +set_project_parameters <- function(file_path){ + cfg <- config::get(file = file_path) + + project_report_name <<- cfg$reporting$project_report_name + display_currency <<- cfg$reporting$display_currency + currency_exchange_value <<- as.numeric(cfg$reporting$currency_exchange_value) + + financial_timestamp <<- cfg$parameters$timestamp + dataprep_timestamp <<- cfg$parameters$dataprep_timestamp + + start_year <<- as.numeric(cfg$parameters$start_year) + time_horizon <<- as.numeric(cfg$parameters$horizon_year) + + select_scenario <<- cfg$parameters$select_scenario + scenario_auto <<- cfg$parameters$scenario_auto + scenario_other <<- cfg$parameters$scenario_other + scenario_shipping <<- cfg$parameters$scenario_shipping + portfolio_allocation_method <<- cfg$parameters$portfolio_allocation_method + scenario_geography <<- cfg$parameters$scenario_geography + + tech_roadmap_sectors <<- cfg$sectors$tech_roadmap_sectors + pacta_sectors_not_analysed <<- cfg$sectors$pacta_sectors_not_analysed + sector_list <<- c(tech_roadmap_sectors, pacta_sectors_not_analysed) + + scenario_sources_list <<- cfg$scenario_sources_list + scenario_geographies_list <<- cfg$scenario_geography_list + asset_types <<- cfg$asset_types + equity_market_list <<- cfg$equity_market_list + + grouping_variables <<- cfg$grouping_variables + + green_techs <<- cfg$sectors$green_techs + alignment_techs <<- cfg$sectors$alignment_techs + + shock_year <<- cfg$stress_test$shock_year + + + # meta_investor_name <<- cfg$ComparisonBenchmarks$MetaInvestorName + # meta_portfolio_name <<- cfg$ComparisonBenchmarks$MetaPortfolioName + + inc_meta_portfolio <<- cfg$ComparisonBenchmarks$CreateMetaPortfolio + if (is.null(inc_meta_portfolio)) { + inc_meta_portfolio <<- FALSE + } + + has_map <<- cfg$methodology$has_map + if (is.null(has_map)) { + has_map <<- TRUE + warning("Warning: has_map set to standard value (TRUE) as it is not defined in the parameter file") + } + + has_sb <<- cfg$methodology$has_sb + if (is.null(has_sb)) { + has_sb <<- FALSE + warning("Warning: has_sb set to standard value (FALSE) as it is not defined in the parameter file") + } + + has_credit <<- cfg$methodology$has_credit + if (is.null(has_credit)) { + has_credit <<- FALSE + warning("Warning: has_credit set to standard value (FALSE) as it is not defined in the parameter file") + } + + has_revenue <<- cfg$methodology$has_revenue + if (is.null(has_revenue)) { + has_revenue <<- FALSE + warning("Warning: has_revenue set to standard value (FALSE) as it is not defined in the parameter file") + } + + inc_emission_factors <<- cfg$methodology$inc_emissionfactors + if (is.null(inc_emission_factors)) { + inc_emission_factors <<- FALSE + warning("Warning: inc_emission_factors set to standard value (FALSE) as it is not defined in the parameter file") + } + + inc_stresstest <<- cfg$methodology$inc_stresstest + if (is.null(inc_stresstest)) { + inc_stresstest <<- FALSE + warning("Warning: inc_stresstest set to standard value (FALSE) as it is not defined in the parameter file") + } + +} + set_global_parameters <- function(file_path) { cfg <- config::get(file = file_path) diff --git a/0_web_functions.R b/0_web_functions.R index 6c313d10..408b9ea9 100644 --- a/0_web_functions.R +++ b/0_web_functions.R @@ -322,3 +322,104 @@ check_file_size <- function(folder_to_check) { files_to_check <- list.files(folder_to_check, full.names = T) any(file.size(files_to_check) > 100e6) } + +empty_portfolio_results <- function(){ + tibble( + "investor_name" = NA_character_, "portfolio_name" = NA_character_, + "scenario" = NA_character_, "allocation" = NA_character_, + "equity_market" = NA_character_, "scenario_geography" = NA_character_, + "year" = NA_integer_, "ald_sector" = NA_character_, "technology" = NA_character_, + "plan_tech_prod" = NA_integer_, "plan_alloc_wt_tech_prod" = NA_integer_, + "plan_carsten" = NA_integer_, "plan_emission_factor" = NA_integer_, + "scen_tech_prod" = NA_integer_, "scen_alloc_wt_tech_prod" = NA_integer_, + "scen_carsten" = NA_integer_, "scen_emission_factor" = NA_integer_, + "plan_sec_prod" = NA_integer_, "plan_alloc_wt_sec_prod" = NA_integer_, + "plan_sec_carsten" = NA_integer_, "plan_sec_emissions_factor" = NA_integer_, + "scen_sec_prod" = NA_integer_, "scen_alloc_wt_sec_prod" = NA_integer_, + "scen_sec_carsten" = NA_integer_, "scen_sec_emissions_factor" = NA_integer_, + "plan_tech_share" = NA_integer_, "scen_tech_share" = NA_integer_, + "trajectory_deviation" = NA_integer_, "trajectory_alignment" = NA_integer_ + ) +} + +empty_company_results <- function(){ + tibble( + "investor_name" = NA_character_, "portfolio_name" = NA_character_, + "scenario" = NA_character_, "allocation" = NA_character_, + "id" = NA_character_, "company_name" = NA_character_, + "financial_sector" = NA_character_, "port_weight" = NA_integer_, + "allocation_weight" = NA_integer_, "plan_br_dist_alloc_wt" = NA_integer_, + "scen_br_dist_alloc_wt" = NA_integer_, + "equity_market" = NA_character_, "scenario_geography" = NA_character_, + "year" = NA_integer_, "ald_sector" = NA_character_, "technology" = NA_character_, + "plan_tech_prod" = NA_integer_, "plan_alloc_wt_tech_prod" = NA_integer_, + "plan_carsten" = NA_integer_, "plan_emission_factor" = NA_integer_, + "scen_tech_prod" = NA_integer_, "scen_alloc_wt_tech_prod" = NA_integer_, + "scen_carsten" = NA_integer_, "scen_emission_factor" = NA_integer_, + "plan_sec_prod" = NA_integer_, "plan_alloc_wt_sec_prod" = NA_integer_, + "plan_sec_carsten" = NA_integer_, "plan_sec_emissions_factor" = NA_integer_, + "scen_sec_prod" = NA_integer_, "scen_alloc_wt_sec_prod" = NA_integer_, + "scen_sec_carsten" = NA_integer_, "scen_sec_emissions_factor" = NA_integer_, + "plan_tech_share" = NA_integer_, "scen_tech_share" = NA_integer_, + "trajectory_deviation" = NA_integer_, "trajectory_alignment" = NA_integer_ + ) +} + +empty_emissions_results <- function(){ + tibble("investor_name" = NA_character_, "portfolio_name" = NA_character_, + "asset_type" = NA_character_, "sector" = NA_character_, + "weighted_sector_emissions" = NA_real_) +} + +empty_audit_file <- function(){ + tibble("investor_name" = NA_character_, "portfolio_name" = NA_character_, + "asset_type" = NA_character_, "valid_input" = NA, "isin" = NA_character_, + "direct_holding" = NA, "value_usd" = NA_real_) +} + +empty_map_results <- function(){ + tibble( + "investor_name" = NA_character_, "portfolio_name" = NA_character_, + "ald_location" = NA_character_, "year" = NA_integer_, + "ald_sector" = NA_character_, "technology" = NA_character_, + "financial_sector" = NA_character_, "allocation" = NA_character_, + "allocation_weight" = NA_integer_, "ald_production_unit" = NA_character_, + "plan_alloc_wt_tech_prod" = NA_integer_, "plan_alloc_wt_sec_prod" = NA_integer_, + "equity_market" = NA_character_, "scenario" = NA_character_, + "scenario_geography" = NA_character_ + ) +} + +empty_st_results <- function(){ + tibble( + "investor_name" = NA_character_, "portfolio_name" = NA_character_, + "ald_sector" = NA_character_, "technology" = NA_character_, + "scenario_geography" = NA_character_, "VaR_technology" = NA_real_, + "asset_portfolio_value" = NA_real_, "VaR_Sector" = NA_real_, + "scenario_name" = NA_character_, "technology_exposure" = NA_real_, + "ector_exposure" = NA_real_, "sector_loss" = NA_real_, + "climate_relevant_var" = NA_real_, "portfolio_aum" = NA_real_, + "portfolio_loss_percentage" = NA_real_, "year_of_shock" = NA_integer_, + "duration_of_shock" = NA_integer_, "production_shock_percentage" = NA_real_ + ) +} + +empty_ipr_st_results <- function(){ + tibble( + "investor_name" = NA_character_, "portfolio_name" = NA_character_, + "sector" = NA_character_, "subsector" = NA_character_, + "exposure" = NA_real_, "description" = NA_character_, + "scenario" = NA_character_, "shock" = NA_real_, + "loss" = NA_real_ + ) +} + +empty_portfolio_overview <- function(){ + tibble( + "investor_name" = NA_character_, "portfolio_name" = NA_character_, + "asset_type" = NA_character_, "financial_sector" = NA_character_, + "valid_input" = NA, "valid_value_usd" = NA_real_, + "asset_value_usd" = NA_real_, "portfolio_value_usd" = NA_real_ + ) +} + diff --git a/parameter_files/AnalysisParameters.yml b/parameter_files/AnalysisParameters.yml deleted file mode 100644 index ac0ca831..00000000 --- a/parameter_files/AnalysisParameters.yml +++ /dev/null @@ -1,64 +0,0 @@ -default: - - GroupingVariables: - - investor_name - - portfolio_name - - Methodology: - HasMAP: TRUE - HasSB: FALSE - HasRevenue: FALSE - HasCC: FALSE - IncEmissionFactors: TRUE - - data_output: - file_type: - - csv - - rda - - - TimeStamps: - # setting the dates of the data-input for financial and asset-level data: this identifies the input files - FinancialData.Timestamp: 2019Q4 - ALD.Timestamp: 2019Q4 - DataStore.Export: 240220 - DataPrep.Timestamp: 2019Q4_250220 - - AnalysisPeriod: - # setting the period of time for the analysis: by setting the starting year and the time-horizon - Years.Horizon: 5 - Years.Startyear: 2020 - - ComparisonBenchmarks: - CreateMetaPortfolio: TRUE - MetaPortfolioName: Meta Portfolio - MetaInvestorName: Meta Investor - - Lists: - AssetTypes: - - Equity - - Bonds - - Funds - - Others - TechnologyRoadmap.Sector.List: - - Automotive - - Power - - Oil&Gas - - Coal - CO2Intensity.Sector.List: - - Shipping - - Steel - - Aviation - - Cement - Scenario.Sources.List: - - ETP2017 - - WEO2019 - - WEO2020 - - GECO2019 - Scenario.Geography.List: - - Global - - GlobalAggregate - - NonOECD - - OECD - - diff --git a/parameter_files/ProjectParameters_CHPA2020.yml b/parameter_files/ProjectParameters_CHPA2020.yml new file mode 100644 index 00000000..4a546e09 --- /dev/null +++ b/parameter_files/ProjectParameters_CHPA2020.yml @@ -0,0 +1,90 @@ +default: + + reporting: + project_report_name: swiss + display_currency: CHF + currency_exchange_value: 1.03 + + parameters: + timestamp: 2019Q4 + dataprep_timestamp: 2019Q4_250220 + start_year: 2020 + horizon_year: 5 + select_scenario: WEO2019_SDS + scenario_auto: ETP2017_B2DS + scenario_other: ETP2017_B2DS + scenario_shipping: SBTI_SBTI + portfolio_allocation_method: portfolio_weight + scenario_geography: Global + + methodology: + has_map: TRUE + has_sb: FALSE + has_revenue: FALSE + has_credit: FALSE + inc_emissionfactors: TRUE + inc_stresstest: TRUE + + sectors: + tech_roadmap_sectors: + - Power + - Automotive + - Oil&Gas + - Coal + pacta_sectors_not_analysed: + - Shipping + - Steel + - Aviation + - Cement + green_techs: + - RenewablesCap + - HydroCap + - NuclearCap + - Hybrid + - Electric + - FuelCell + - Hybrid_HDV + - Electric_HDV + - FuelCell_HDV + - Dc-Electric Arc Furnace + - Ac-Electric Arc Furnace + alignment_techs: + - RenewablesCap + - CoalCap + - Coal + - Oil + - Gas + - Electric + - ICE + + asset_types: + - Equity + - Bonds + - Others + - Funds + + scenario_sources_list: + - ETP2017 + - WEO2019 + - WEO2020 + - GECO2019 + + scenario_geography_list: + - Global + - GlobalAggregate + - NonOECD + - OECD + + equity_market_list: + - GlobalMarket + - DevelopedMarket + - EmergingMarket + + grouping_variables: + - investor_name + - portfolio_name + + stress_test: + shock_year: 2030 + + diff --git a/parameter_files/ProjectParameters_GENERAL.yml b/parameter_files/ProjectParameters_GENERAL.yml new file mode 100644 index 00000000..49775a5e --- /dev/null +++ b/parameter_files/ProjectParameters_GENERAL.yml @@ -0,0 +1,90 @@ +default: + + reporting: + project_report_name: general + display_currency: USD + currency_exchange_value: 1 + + parameters: + timestamp: 2019Q4 + dataprep_timestamp: 2019Q4_250220 + start_year: 2020 + horizon_year: 5 + select_scenario: WEO2019_SDS + scenario_auto: ETP2017_B2DS + scenario_other: ETP2017_B2DS + scenario_shipping: SBTI_SBTI + portfolio_allocation_method: portfolio_weight + scenario_geography: Global + + methodology: + has_map: TRUE + has_sb: FALSE + has_revenue: FALSE + has_credit: FALSE + inc_emissionfactors: TRUE + inc_stresstest: TRUE + + sectors: + tech_roadmap_sectors: + - Power + - Automotive + - Oil&Gas + - Coal + pacta_sectors_not_analysed: + - Shipping + - Steel + - Aviation + - Cement + green_techs: + - RenewablesCap + - HydroCap + - NuclearCap + - Hybrid + - Electric + - FuelCell + - Hybrid_HDV + - Electric_HDV + - FuelCell_HDV + - Dc-Electric Arc Furnace + - Ac-Electric Arc Furnace + alignment_techs: + - RenewablesCap + - CoalCap + - Coal + - Oil + - Gas + - Electric + - ICE + + asset_types: + - Equity + - Bonds + - Others + - Funds + + scenario_sources_list: + - ETP2017 + - WEO2019 + - WEO2020 + - GECO2019 + + scenario_geography_list: + - Global + - GlobalAggregate + - NonOECD + - OECD + + equity_market_list: + - GlobalMarket + - DevelopedMarket + - EmergingMarket + + grouping_variables: + - investor_name + - portfolio_name + + stress_test: + shock_year: 2030 + + diff --git a/parameter_files/ProjectParameters_PA2020FL.yml b/parameter_files/ProjectParameters_PA2020FL.yml new file mode 100644 index 00000000..254e829b --- /dev/null +++ b/parameter_files/ProjectParameters_PA2020FL.yml @@ -0,0 +1,90 @@ +default: + + reporting: + project_report_name: liechtenstein + display_currency: EUR + currency_exchange_value: 1.1227 + + parameters: + timestamp: 2019Q4 + dataprep_timestamp: 2019Q4_250220 + start_year: 2020 + horizon_year: 5 + select_scenario: WEO2019_SDS + scenario_auto: ETP2017_B2DS + scenario_other: ETP2017_B2DS + scenario_shipping: SBTI_SBTI + portfolio_allocation_method: portfolio_weight + scenario_geography: Global + + methodology: + has_map: TRUE + has_sb: FALSE + has_revenue: FALSE + has_credit: FALSE + inc_emissionfactors: TRUE + inc_stresstest: TRUE + + sectors: + tech_roadmap_sectors: + - Power + - Automotive + - Oil&Gas + - Coal + pacta_sectors_not_analysed: + - Shipping + - Steel + - Aviation + - Cement + green_techs: + - RenewablesCap + - HydroCap + - NuclearCap + - Hybrid + - Electric + - FuelCell + - Hybrid_HDV + - Electric_HDV + - FuelCell_HDV + - Dc-Electric Arc Furnace + - Ac-Electric Arc Furnace + alignment_techs: + - RenewablesCap + - CoalCap + - Coal + - Oil + - Gas + - Electric + - ICE + + asset_types: + - Equity + - Bonds + - Others + - Funds + + scenario_sources_list: + - ETP2017 + - WEO2019 + - WEO2020 + - GECO2019 + + scenario_geography_list: + - Global + - GlobalAggregate + - NonOECD + - OECD + + equity_market_list: + - GlobalMarket + - DevelopedMarket + - EmergingMarket + + grouping_variables: + - investor_name + - portfolio_name + + stress_test: + shock_year: 2030 + + diff --git a/parameter_files/ReportParameters.yml b/parameter_files/ReportParameters.yml deleted file mode 100644 index 15acdc32..00000000 --- a/parameter_files/ReportParameters.yml +++ /dev/null @@ -1,34 +0,0 @@ -default: - Naming: - GraphType: Report - Scenariochoose: SDS - AccountingPrinciple: PortfolioWeight - ScenarioGeographyChoose: GlobalAggregate - EquityMarketSelection: Global - Language: "EN" - Startyear: 2019 - - - Benchmarks: - PeerGroupSelection: Project - EQPeersRef: Project - CBPeersRef: Project - eq_market_ref: ACWI - cb_market_ref: BEHGTRUU - - Contents: - templateversion: "GeneralTemplateInput_v6" - BondReference: "Bond" - RefMarketData: TRUE - WithCompanyCharts: TRUE - IsSample: FALSE - IncWWF: FALSE - IncPRI: FALSE - IncCoalRetirement: TRUE - IncOtherSectors: TRUE - IncAlignment: TRUE - IncPeersChart: FALSE - IncPhysicalRisk: FALSE - inc_sda_approach: TRUE - No.Companies: 15 - diff --git a/parameter_files/exampleName_PortfolioParameters.yml b/parameter_files/exampleName_PortfolioParameters.yml deleted file mode 100644 index 1fc06355..00000000 --- a/parameter_files/exampleName_PortfolioParameters.yml +++ /dev/null @@ -1,5 +0,0 @@ -default: - parameters: - portfolio_name_in: Sample Portfolio - investor_name_in: Sample Investor - diff --git a/sample_files/20_input_files/AnalysisParameters.yml b/sample_files/20_input_files/AnalysisParameters.yml deleted file mode 100644 index fbfbc510..00000000 --- a/sample_files/20_input_files/AnalysisParameters.yml +++ /dev/null @@ -1,134 +0,0 @@ -default: - - GroupingVariables: - - investor_name - - portfolio_name - - Methodology: - HasMAP: TRUE - HasSB: FALSE - HasRevenue: FALSE - HasCC: FALSE - IncEmissionFactors: FALSE - - data_output: - file_type: - - csv - - rda - - - TimeStamps: - # setting the dates of the data-input for financial and asset-level data: this identifies the input files - FinancialData.Timestamp: 2019Q4 - ALD.Timestamp: 201912 - DataStore.Export: 2019Q4_export_04232020 - DataPrep.Timestamp: 2019Q4_04232020_2019 - - AnalysisPeriod: - # setting the period of time for the analysis: by setting the starting year and the time-horizon - Years.Horizon: 5 - Years.Startyear: 2019 - - - ComparisonBenchmarks: - CreateMetaPortfolio: TRUE - MetaPortfolioName: Meta Portfolio - MetaInvestorName: Meta Investor - - Large.Universe.Filter: - FINANCIAL.INSTRUMENT.FILTER: - - EQUITY - - BONDS - SCENARIO.FILTER: - - B2DS - - SDS - - NPSRTS - - CPS - - SBTI - YEAR.FILTER: - - 2019 - - 2020 - - 2021 - - 2022 - - 2023 - - 2024 - - SECTOR.FILTER: - - Power - - Automotive - - Fossil Fuels - - Oil&Gas - - Coal - - Shipping - - Steel - - Aviation - - Cement - - Lists: - Scenario.Sources.List: - - ETP2017 - - SBTI - - WEO2019 - - IEA.Scenarios.List: - - B2DS - - SDS - - CPS - - NPS - - NPSRTS - Scenario.Geography.List: - - Global - - GlobalAggregate - - NonOECD - - OECD - Equity.Market.List: - - GlobalMarket - Global.Aggregate.Sector.List: - - Power - Global.Aggregate.Scenario.Sources.List: - - WEO2018 - Technology.List: - - Electric - - Hybrid - - ICE - - GasCap - - CoalCap - - OilCap - - RenewablesCap - - HydroCap - - NuclearCap - - Coal - - Oil - - Gas - Technology.Exclusion.List: - - FuelCell - - Fuel cell - - OtherCap - - OtherFF - - Bof Shop - - Coking Plant - - Sintering Plant - - Direct Or Smelting Reduction Plant - - Pelletizing Plant - - Open Hearth Meltshop - TechnologyRoadmap.Sector.List: - - Automotive - - Power - - Fossil Fuels - - Oil&Gas - - Coal - CO2Intensity.Sector.List: - - Shipping - - Steel - - Aviation - - Cement - WebToolRegions: - - Global - - OECD - - NonOECD - - NorthAmerica - - Europe - - AsiaPacific - - OECDNorthAmerica - - diff --git a/web_tool_script_1.R b/web_tool_script_1.R index 0c471636..2da850e7 100644 --- a/web_tool_script_1.R +++ b/web_tool_script_1.R @@ -11,22 +11,23 @@ source("0_portfolio_test.R") if (!exists("portfolio_name_ref_all")) { portfolio_name_ref_all <- "TestPortfolio_Input" } if (!exists("portfolio_root_dir")) { portfolio_root_dir <- "working_dir" } +portfolio_root_dir <- "working_dir" setup_project() working_location <- file.path(working_location) set_webtool_paths(portfolio_root_dir) -options(r2dii_config = file.path(par_file_path, "AnalysisParameters.yml")) -set_global_parameters(file.path(par_file_path, "AnalysisParameters.yml")) +set_portfolio_parameters(file_path = fs::path(par_file_path, paste0(portfolio_name_ref_all, "_PortfolioParameters.yml"))) + +set_project_parameters(file.path(working_location, "parameter_files",paste0("ProjectParameters_", project_code, ".yml"))) # need to define an alternative location for data files analysis_inputs_path <- set_analysis_inputs_path(twodii_internal, data_location_ext, dataprep_timestamp) # To save, files need to go in the portfolio specific folder, created here create_portfolio_subfolders(portfolio_name_ref_all = portfolio_name_ref_all, project_location = project_location) - ###################################################################### #################### @@ -77,13 +78,13 @@ if (new_data == TRUE) { } fund_data_path <- file.path(file_location, "fund_data.fst") + fund_data <- read_fst_or_return_null(fund_data_path) fin_data <- fst::read_fst(file.path(file_location, "fin_data.fst")) comp_fin_data <- fst::read_fst(file.path(file_location, "comp_fin_data.fst")) - debt_fin_data <- fst::read_fst(file.path(file_location, "debt_fin_data.fst")) if (inc_emission_factors) { @@ -109,8 +110,6 @@ portfolio <- add_revenue_split(has_revenue, portfolio, revenue_data) portfolio <- create_ald_flag(portfolio, comp_fin_data, debt_fin_data) -# portfolio <- add_bics_sector(portfolio) - eq_portfolio <- create_portfolio_subset( portfolio, "Equity", @@ -143,21 +142,8 @@ port_weights <- pw_calculations(eq_portfolio, cb_portfolio) #### SAVING #### ################ -# Identify the portfolios to save; -# Subset and Save these files - -file_names <- identify_portfolios(portfolio_total) - -portfolio_name <- file_names$portfolio_name - proc_input_path_ <- file.path(proc_input_path, portfolio_name_ref_all) -# write_csv(file_names, file.path(proc_input_path_, "file_names.csv")) - -# create_audit_chart(audit_file, proc_input_path = proc_input_path_) - -# website_text(audit_file, proc_input_path = proc_input_path_) - export_audit_information_jsons( audit_file_ = audit_file %>% filter(portfolio_name == portfolio_name), portfolio_total_ = portfolio_total %>% filter(portfolio_name == portfolio_name), diff --git a/web_tool_script_2.R b/web_tool_script_2.R index 3f98a308..d5876c86 100644 --- a/web_tool_script_2.R +++ b/web_tool_script_2.R @@ -20,10 +20,9 @@ working_location <- file.path(working_location) set_webtool_paths(portfolio_root_dir) -# just done once -options(r2dii_config = file.path(par_file_path, "AnalysisParameters.yml")) +set_portfolio_parameters(file_path = fs::path(par_file_path, paste0(portfolio_name_ref_all, "_PortfolioParameters.yml"))) -set_global_parameters(file.path(par_file_path, "AnalysisParameters.yml")) +set_project_parameters(file.path(working_location, "parameter_files", paste0("ProjectParameters_", project_code, ".yml"))) # need to define an alternative location for data files analysis_inputs_path <- set_analysis_inputs_path(twodii_internal, data_location_ext, dataprep_timestamp) @@ -32,7 +31,6 @@ analysis_inputs_path <- set_analysis_inputs_path(twodii_internal, data_location_ unlink(file.path(results_path, portfolio_name_ref_all, "*"), force = TRUE, recursive = TRUE) # run again so output folders are available after deleting past results -# file_names <- read_csv(file.path(proc_input_path, portfolio_name_ref_all, "file_names.csv")) create_portfolio_subfolders(portfolio_name_ref_all) port_col_types <- set_col_types(grouping_variables, "ddddccccddclc") @@ -42,7 +40,6 @@ port_col_types <- set_col_types(grouping_variables, "ddddccccddclc") ################## equity_input_file <- file.path(proc_input_path, portfolio_name_ref_all, "equity_portfolio.rda") -# portfolio_name <- file_names$portfolio_name if (file.exists(equity_input_file)) { ald_scen_eq <- get_ald_scen("Equity") diff --git a/web_tool_script_3.R b/web_tool_script_3.R index 3339ffdb..7ce950ab 100644 --- a/web_tool_script_3.R +++ b/web_tool_script_3.R @@ -13,22 +13,20 @@ setup_project() set_webtool_paths(portfolio_root_dir) -options(r2dii_config = file.path(par_file_path, "AnalysisParameters.yml")) - -set_global_parameters(file.path(par_file_path, "AnalysisParameters.yml")) - set_portfolio_parameters(file_path = fs::path(par_file_path, paste0(portfolio_name_ref_all, "_PortfolioParameters.yml"))) +set_project_parameters(file.path(working_location, "parameter_files",paste0("ProjectParameters_", project_code, ".yml"))) + analysis_inputs_path <- set_analysis_inputs_path(twodii_internal, data_location_ext, dataprep_timestamp) source(file.path(template_path, "create_interactive_report.R")) source(file.path(template_path, "create_executive_summary.R")) source(file.path(template_path, "useful_functions.R")) -report_name = select_report_template(project_code = project_code, +report_name = select_report_template(project_report_name = project_report_name, language_select = language_select) -exec_summary_name = select_exec_summary_template(project_code = project_code, +exec_summary_name = select_exec_summary_template(project_report_name = project_report_name, language_select = language_select) template_dir <- paste0(template_path, report_name,"/_book/") @@ -39,222 +37,117 @@ real_estate_dir <- path(user_results_path, project_code, "real_estate") output_dir <- file.path(outputs_path, portfolio_name_ref_all) -scenario <- "WEO2019_SDS" -scenario_auto <- "ETP2017_B2DS" -scenario_other <- "ETP2017_B2DS" -scenario_shipping <- "SBTI_SBTI" -portfolio_allocation_method <- "portfolio_weight" -scenario_geography <- "Global" - if (file.exists(file.path(proc_input_path, portfolio_name_ref_all, "audit_file.csv"))){ audit_file <- read_csv(file.path(proc_input_path, portfolio_name_ref_all, "audit_file.csv"), col_types = cols()) }else{ - audit_file <- tibble("investor_name" = NA_character_, "portfolio_name" = NA_character_, - "asset_type" = NA_character_, "valid_input" = NA, "isin" = NA_character_, - "direct_holding" = NA, "value_usd" = NA_real_) + audit_file <- empty_audit_file() + +} +# load portfolio overview +if (file.exists(file.path(proc_input_path, portfolio_name_ref_all, "overview_portfolio.rda"))) { + portfolio_overview <- read_rds(file.path(proc_input_path, portfolio_name_ref_all, "overview_portfolio.rda")) +} else { + portfolio_overview <- empty_portfolio_overview() } + if (file.exists(file.path(proc_input_path, portfolio_name_ref_all, "emissions.rda"))){ emissions <- read_rds(file.path(proc_input_path, portfolio_name_ref_all, "emissions.rda")) - }else{ - emissions <- tibble("investor_name" = NA_character_, "portfolio_name" = NA_character_, - "asset_type" = NA_character_, "sector" = NA_character_, - "weighted_sector_emissions" = NA_real_)} +}else{ + emissions <- empty_emissions_results()} # load equity portfolio data if (file.exists(file.path(results_path, portfolio_name_ref_all, "Equity_results_portfolio.rda"))) { equity_results_portfolio <- read_rds(file.path(results_path, portfolio_name_ref_all, "Equity_results_portfolio.rda")) } else { - equity_results_portfolio <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "scenario" = NA_character_, "allocation" = NA_character_, - "equity_market" = NA_character_, "scenario_geography" = NA_character_, - "year" = NA_integer_, "ald_sector" = NA_character_, "technology" = NA_character_, - "plan_tech_prod" = NA_integer_, "plan_alloc_wt_tech_prod" = NA_integer_, - "plan_carsten" = NA_integer_, "plan_emission_factor" = NA_integer_, - "scen_tech_prod" = NA_integer_, "scen_alloc_wt_tech_prod" = NA_integer_, - "scen_carsten" = NA_integer_, "scen_emission_factor" = NA_integer_, - "plan_sec_prod" = NA_integer_, "plan_alloc_wt_sec_prod" = NA_integer_, - "plan_sec_carsten" = NA_integer_, "plan_sec_emissions_factor" = NA_integer_, - "scen_sec_prod" = NA_integer_, "scen_alloc_wt_sec_prod" = NA_integer_, - "scen_sec_carsten" = NA_integer_, "scen_sec_emissions_factor" = NA_integer_, - "plan_tech_share" = NA_integer_, "scen_tech_share" = NA_integer_, - "trajectory_deviation" = NA_integer_, "trajectory_alignment" = NA_integer_ - ) + equity_results_portfolio <- empty_portfolio_results() } # load bonds portfolio data if (file.exists(file.path(results_path, portfolio_name_ref_all, "Bonds_results_portfolio.rda"))) { bonds_results_portfolio <- read_rds(file.path(results_path, portfolio_name_ref_all, "Bonds_results_portfolio.rda")) } else { - bonds_results_portfolio <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "scenario" = NA_character_, "allocation" = NA_character_, - "equity_market" = NA_character_, "scenario_geography" = NA_character_, - "year" = NA_integer_, "ald_sector" = NA_character_, "technology" = NA_character_, - "plan_tech_prod" = NA_integer_, "plan_alloc_wt_tech_prod" = NA_integer_, - "plan_carsten" = NA_integer_, "plan_emission_factor" = NA_integer_, - "scen_tech_prod" = NA_integer_, "scen_alloc_wt_tech_prod" = NA_integer_, - "scen_carsten" = NA_integer_, "scen_emission_factor" = NA_integer_, - "plan_sec_prod" = NA_integer_, "plan_alloc_wt_sec_prod" = NA_integer_, - "plan_sec_carsten" = NA_integer_, "plan_sec_emissions_factor" = NA_integer_, - "scen_sec_prod" = NA_integer_, "scen_alloc_wt_sec_prod" = NA_integer_, - "scen_sec_carsten" = NA_integer_, "scen_sec_emissions_factor" = NA_integer_, - "plan_tech_share" = NA_integer_, "scen_tech_share" = NA_integer_, - "trajectory_deviation" = NA_integer_, "trajectory_alignment" = NA_integer_ - ) + bonds_results_portfolio <- empty_portfolio_results() } # load equity company data if (file.exists(file.path(results_path, portfolio_name_ref_all, "Equity_results_company.rda"))) { equity_results_company <- read_rds(file.path(results_path, portfolio_name_ref_all, "Equity_results_company.rda")) } else { - equity_results_company <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "scenario" = NA_character_, "allocation" = NA_character_, - "id" = NA_character_, "company_name" = NA_character_, - "financial_sector" = NA_character_, "port_weight" = NA_integer_, - "allocation_weight" = NA_integer_, "plan_br_dist_alloc_wt" = NA_integer_, - "scen_br_dist_alloc_wt" = NA_integer_, - "equity_market" = NA_character_, "scenario_geography" = NA_character_, - "year" = NA_integer_, "ald_sector" = NA_character_, "technology" = NA_character_, - "plan_tech_prod" = NA_integer_, "plan_alloc_wt_tech_prod" = NA_integer_, - "plan_carsten" = NA_integer_, "plan_emission_factor" = NA_integer_, - "scen_tech_prod" = NA_integer_, "scen_alloc_wt_tech_prod" = NA_integer_, - "scen_carsten" = NA_integer_, "scen_emission_factor" = NA_integer_, - "plan_sec_prod" = NA_integer_, "plan_alloc_wt_sec_prod" = NA_integer_, - "plan_sec_carsten" = NA_integer_, "plan_sec_emissions_factor" = NA_integer_, - "scen_sec_prod" = NA_integer_, "scen_alloc_wt_sec_prod" = NA_integer_, - "scen_sec_carsten" = NA_integer_, "scen_sec_emissions_factor" = NA_integer_, - "plan_tech_share" = NA_integer_, "scen_tech_share" = NA_integer_, - "trajectory_deviation" = NA_integer_, "trajectory_alignment" = NA_integer_ - ) + equity_results_company <- empty_company_results() } # load bonds company data if (file.exists(file.path(results_path, portfolio_name_ref_all, "Bonds_results_company.rda"))) { bonds_results_company <- read_rds(file.path(results_path, portfolio_name_ref_all, "Bonds_results_company.rda")) } else { - bonds_results_company <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "scenario" = NA_character_, "allocation" = NA_character_, - "id" = NA_character_, "company_name" = NA_character_, - "financial_sector" = NA_character_, "port_weight" = NA_integer_, - "allocation_weight" = NA_integer_, "plan_br_dist_alloc_wt" = NA_integer_, - "scen_br_dist_alloc_wt" = NA_integer_, - "equity_market" = NA_character_, "scenario_geography" = NA_character_, - "year" = NA_integer_, "ald_sector" = NA_character_, "technology" = NA_character_, - "plan_tech_prod" = NA_integer_, "plan_alloc_wt_tech_prod" = NA_integer_, - "plan_carsten" = NA_integer_, "plan_emission_factor" = NA_integer_, - "scen_tech_prod" = NA_integer_, "scen_alloc_wt_tech_prod" = NA_integer_, - "scen_carsten" = NA_integer_, "scen_emission_factor" = NA_integer_, - "plan_sec_prod" = NA_integer_, "plan_alloc_wt_sec_prod" = NA_integer_, - "plan_sec_carsten" = NA_integer_, "plan_sec_emissions_factor" = NA_integer_, - "scen_sec_prod" = NA_integer_, "scen_alloc_wt_sec_prod" = NA_integer_, - "scen_sec_carsten" = NA_integer_, "scen_sec_emissions_factor" = NA_integer_, - "plan_tech_share" = NA_integer_, "scen_tech_share" = NA_integer_, - "trajectory_deviation" = NA_integer_, "trajectory_alignment" = NA_integer_ - ) + bonds_results_company <- empty_company_results() } # load equity map data if (file.exists(file.path(results_path, portfolio_name_ref_all, "Equity_results_map.rda"))) { equity_results_map <- read_rds(file.path(results_path, portfolio_name_ref_all, "Equity_results_map.rda")) } else { - equity_results_map <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "ald_location" = NA_character_, "year" = NA_integer_, - "ald_sector" = NA_character_, "technology" = NA_character_, - "financial_sector" = NA_character_, "allocation" = NA_character_, - "allocation_weight" = NA_integer_, "ald_production_unit" = NA_character_, - "plan_alloc_wt_tech_prod" = NA_integer_, "plan_alloc_wt_sec_prod" = NA_integer_, - "equity_market" = NA_character_, "scenario" = NA_character_, - "scenario_geography" = NA_character_ - ) + equity_results_map <- empty_map_results() } # load bonds map data if (file.exists(file.path(results_path, portfolio_name_ref_all, "Bonds_results_map.rda"))) { bonds_results_map <- read_rds(file.path(results_path, portfolio_name_ref_all, "Bonds_results_map.rda")) } else { - bonds_results_map <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "ald_location" = NA_character_, "year" = NA_integer_, - "ald_sector" = NA_character_, "technology" = NA_character_, - "financial_sector" = NA_character_, "allocation" = NA_character_, - "allocation_weight" = NA_integer_, "ald_production_unit" = NA_character_, - "plan_alloc_wt_tech_prod" = NA_integer_, "plan_alloc_wt_sec_prod" = NA_integer_, - "equity_market" = NA_character_, "scenario" = NA_character_, - "scenario_geography" = NA_character_ - ) + bonds_results_map <- empty_map_results() } # load equity stress test data if (file.exists(file.path(results_path, portfolio_name_ref_all, "Equity_results_stress_test.rda"))) { equity_results_stress_test <- read_rds(file.path(results_path, portfolio_name_ref_all, "Equity_results_stress_test.rda")) } else { - equity_results_stress_test <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "ald_sector" = NA_character_, "technology" = NA_character_, - "scenario_geography" = NA_character_, "VaR_technology" = NA_real_, - "asset_portfolio_value" = NA_real_, "VaR_Sector" = NA_real_, - "scenario_name" = NA_character_, "technology_exposure" = NA_real_, - "ector_exposure" = NA_real_, "sector_loss" = NA_real_, - "climate_relevant_var" = NA_real_, "portfolio_aum" = NA_real_, - "portfolio_loss_percentage" = NA_real_, "year_of_shock" = NA_integer_, - "duration_of_shock" = NA_integer_, "production_shock_percentage" = NA_real_ - ) + equity_results_stress_test <- empty_st_results() } # load bonds stress test data if (file.exists(file.path(results_path, portfolio_name_ref_all, "Bonds_results_stress_test.rda"))) { bonds_results_stress_test <- read_rds(file.path(results_path, portfolio_name_ref_all, "Bonds_results_stress_test.rda")) } else { - bonds_results_stress_test <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "ald_sector" = NA_character_, "technology" = NA_character_, - "scenario_geography" = NA_character_, "VaR_technology" = NA_real_, - "asset_portfolio_value" = NA_real_, "VaR_Sector" = NA_real_, - "scenario_name" = NA_character_, "technology_exposure" = NA_real_, - "ector_exposure" = NA_real_, "sector_loss" = NA_real_, - "climate_relevant_var" = NA_real_, "portfolio_aum" = NA_real_, - "portfolio_loss_percentage" = NA_real_, "year_of_shock" = NA_integer_, - "duration_of_shock" = NA_integer_, "production_shock_percentage" = NA_real_ - ) -} - -# load portfolio overview -if (file.exists(file.path(proc_input_path, portfolio_name_ref_all, "overview_portfolio.rda"))) { - portfolio_overview <- read_rds(file.path(proc_input_path, portfolio_name_ref_all, "overview_portfolio.rda")) -} else { - portfolio_overview <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "asset_type" = NA_character_, "financial_sector" = NA_character_, - "valid_input" = NA, "valid_value_usd" = NA_real_, - "asset_value_usd" = NA_real_, "portfolio_value_usd" = NA_real_ - ) + bonds_results_stress_test <- empty_st_results() } # load IPR stress test results if (file.exists(file.path(results_path, portfolio_name_ref_all, "Stress_test_results_IPR.rds"))) { ipr_results_stress_test <- read_rds(file.path(results_path, portfolio_name_ref_all, "Stress_test_results_IPR.rds")) } else { - ipr_results_stress_test <- tibble( - "investor_name" = NA_character_, "portfolio_name" = NA_character_, - "sector" = NA_character_, "subsector" = NA_character_, - "exposure" = NA_real_, "description" = NA_character_, - "scenario" = NA_character_, "shock" = NA_real_, - "loss" = NA_real_ - ) + ipr_results_stress_test <- empty_ipr_st_results() +} + +# load peers results both individual and aggregate +if (file.exists(file.path(data_location_ext, paste0(project_code, "_peers_equity_results_portfolio.rda")))){ + peers_equity_results_portfolio <- read_rds(file.path(data_location_ext, paste0(project_code, "_peers_equity_results_portfolio.rda"))) +}else{ + peers_equity_results_portfolio <- empty_portfolio_results() +} + +if(file.exists(file.path(data_location_ext, paste0(project_code, "_peers_bonds_results_portfolio.rda")))){ + peers_bonds_results_portfolio <- read_rds(file.path(data_location_ext, paste0(project_code, "_peers_bonds_results_portfolio.rda"))) +}else{ + peers_bonds_results_portfolio <- empty_portfolio_results() +} + +if (file.exists(file.path(data_location_ext, paste0(project_code, "_peers_equity_results_portfolio_ind.rda")))){ + peers_equity_results_user <- read_rds(file.path(data_location_ext, paste0(project_code, "_peers_equity_results_portfolio_ind.rda"))) +}else{ + peers_equity_results_user <- empty_portfolio_results() +} + +if(file.exists(file.path(data_location_ext, paste0(project_code, "_peers_bonds_results_portfolio_ind.rda")))){ + peers_bonds_results_user <- read_rds(file.path(data_location_ext, paste0(project_code, "_peers_bonds_results_portfolio_ind.rda"))) +}else{ + peers_bonds_results_user <- empty_portfolio_results() } indices_equity_results_portfolio <- read_rds(file.path(data_location_ext, "Indices_equity_portfolio.rda")) + indices_bonds_results_portfolio <- read_rds(file.path(data_location_ext, "Indices_bonds_portfolio.rda")) -peers_equity_results_portfolio <- read_rds(file.path(data_location_ext, "Peers_equity_results_portfolio.rda")) -peers_bonds_results_portfolio <- read_rds(file.path(data_location_ext, "Peers_bonds_results_portfolio.rda")) -peers_equity_results_user <- read_rds(file.path(data_location_ext, "Peers_equity_results_portfolio_ind.rda")) -peers_bonds_results_user <- read_rds(file.path(data_location_ext, "Peers_bonds_results_portfolio_ind.rda")) dataframe_translations <- readr::read_csv( path(template_path, "data/translation/dataframe_labels.csv"), @@ -270,25 +163,13 @@ js_translations <- jsonlite::fromJSON( txt = path(template_path, "data/translation/js_labels.json") ) -shock_year <- 2030 # this should come directly from the stress test.. 2030 based on current discussions in CHPA2020 case -pacta_sectors_not_analysed <- c("Aviation","Cement","Shipping","Steel") -select_scenario = scenario +# Needed for testing only +shock <- shock_year # this should come directly from the stress test.. 2030 based on current discussions in CHPA2020 case select_scenario_auto = scenario_auto select_scenario_other = scenario_other select_scenario_shipping = scenario_shipping - -twodi_sectors = c("Power", "Automotive", "Shipping", "Oil&Gas", "Coal", "Steel", "Cement", "Aviation") -green_techs = c("RenewablesCap", "HydroCap", "NuclearCap", "Hybrid", "Electric", "FuelCell", "Hybrid_HDV", "Electric_HDV", "FuelCell_HDV","Ac-Electric Arc Furnace","Ac-Electric Arc Furnace") -tech_roadmap_sectors = c("Automotive", "Power", "Oil&Gas", "Coal") -alignment_techs = c("RenewablesCap", "CoalCap", "Coal", "Oil", "Gas", "Electric", "ICE") - - +twodi_sectors = sector_list repo_path = template_path -output_dir <- file.path(outputs_path, portfolio_name_ref_all) - -display_currency = "CHF" -currency_exchange_value <- 1.03 -# TODO: update this from the currencies file file_name = "template.Rmd" create_interactive_report( @@ -305,16 +186,16 @@ create_interactive_report( peer_group = peer_group, start_year = start_year, shock = shock_year, - select_scenario = scenario, + select_scenario = select_scenario, select_scenario_auto = scenario_auto, select_scenario_shipping = scenario_shipping, select_scenario_other = scenario_other, portfolio_allocation_method = portfolio_allocation_method, scenario_geography = scenario_geography, - twodi_sectors = c("Power", "Automotive", "Shipping", "Oil&Gas", "Coal", "Steel", "Cement", "Aviation"), - green_techs = c("RenewablesCap", "HydroCap", "NuclearCap", "Hybrid", "Electric", "FuelCell", "Hybrid_HDV", "Electric_HDV", "FuelCell_HDV","Ac-Electric Arc Furnace","Dc-Electric Arc Furnace"), - tech_roadmap_sectors = c("Automotive", "Power", "Oil&Gas", "Coal"), - pacta_sectors_not_analysed = c("Aviation","Cement","Shipping","Steel"), + twodi_sectors = sector_list, + green_techs = green_techs, + tech_roadmap_sectors = tech_roadmap_sectors, + pacta_sectors_not_analysed = pacta_sectors_not_analysed, audit_file = audit_file, emissions = emissions, portfolio_overview = portfolio_overview, @@ -335,7 +216,7 @@ create_interactive_report( dataframe_translations = dataframe_translations, js_translations = js_translations, ipr_results_stress_test = ipr_results_stress_test, - display_currency = "CHF", + display_currency = display_currency, currency_exchange_value = currency_exchange_value, header_dictionary = header_dictionary ) @@ -344,7 +225,7 @@ create_interactive_report( create_executive_summary( file_name = "template.Rmd", exec_summary_dir = exec_summary_dir, - output_dir = file.path(output_dir, "executive_summary"), + output_dir = output_dir, language_select = language_select, project_name = "working_dir", investor_name = investor_name, @@ -354,10 +235,10 @@ create_executive_summary( select_scenario = scenario, portfolio_allocation_method = portfolio_allocation_method, scenario_geography = scenario_geography, - twodi_sectors = c("Power", "Automotive", "Shipping", "Oil&Gas", "Coal", "Steel", "Cement", "Aviation"), - green_techs = c("RenewablesCap", "HydroCap", "NuclearCap", "Hybrid", "Electric", "FuelCell", "Hybrid_HDV", "Electric_HDV", "FuelCell_HDV","Ac-Electric Arc Furnace","Dc-Electric Arc Furnace"), - tech_roadmap_sectors = c("Automotive", "Power", "Oil&Gas", "Coal"), - alignment_techs = c("RenewablesCap", "CoalCap", "Coal", "Oil", "Gas", "Electric", "ICE"), + twodi_sectors = sector_list, + green_techs = green_techs, + tech_roadmap_sectors = tech_roadmap_sectors, + alignment_techs = alignment_techs, equity_results_portfolio = equity_results_portfolio, bonds_results_portfolio = bonds_results_portfolio, peers_equity_results_portfolio = peers_equity_results_portfolio, diff --git a/working_dir/10_Parameter_File/AnalysisParameters.yml b/working_dir/10_Parameter_File/AnalysisParameters.yml deleted file mode 100644 index 2a8349f7..00000000 --- a/working_dir/10_Parameter_File/AnalysisParameters.yml +++ /dev/null @@ -1,70 +0,0 @@ -default: - - GroupingVariables: - - investor_name - - portfolio_name - - Methodology: - HasMAP: TRUE - HasSB: FALSE - HasRevenue: FALSE - HasCC: FALSE - IncEmissionFactors: TRUE - - data_output: - file_type: - - csv - - rda - - - TimeStamps: - # setting the dates of the data-input for financial and asset-level data: this identifies the input files - FinancialData.Timestamp: 2019Q4 - ALD.Timestamp: 2019Q4 - DataStore.Export: 240220 - DataPrep.Timestamp: 2019Q4_250220 - - AnalysisPeriod: - # setting the period of time for the analysis: by setting the starting year and the time-horizon - Years.Horizon: 5 - Years.Startyear: 2020 - - ComparisonBenchmarks: - CreateMetaPortfolio: FALSE - MetaPortfolioName: Meta Portfolio - MetaInvestorName: Meta Investor - - Lists: - AssetTypes: - - Equity - - Bonds - - Funds - - Others - TechnologyRoadmap.Sector.List: - - Automotive - - Power - - Oil&Gas - - Coal - CO2Intensity.Sector.List: - - Shipping - - Steel - - Aviation - - Cement - Scenario.Sources.List: - - ETP2017 - - WEO2019 - - WEO2020 - - GECO2019 - - SBTI - Scenario.Geography.List: - - Global - - GlobalAggregate - - NonOECD - - OECD - Equity.Market.List: - - GlobalMarket - - Global - - EmergingMarket - - DevelopedMarket - - diff --git a/working_dir/10_Parameter_File/ReportParameters.yml b/working_dir/10_Parameter_File/ReportParameters.yml deleted file mode 100644 index 15acdc32..00000000 --- a/working_dir/10_Parameter_File/ReportParameters.yml +++ /dev/null @@ -1,34 +0,0 @@ -default: - Naming: - GraphType: Report - Scenariochoose: SDS - AccountingPrinciple: PortfolioWeight - ScenarioGeographyChoose: GlobalAggregate - EquityMarketSelection: Global - Language: "EN" - Startyear: 2019 - - - Benchmarks: - PeerGroupSelection: Project - EQPeersRef: Project - CBPeersRef: Project - eq_market_ref: ACWI - cb_market_ref: BEHGTRUU - - Contents: - templateversion: "GeneralTemplateInput_v6" - BondReference: "Bond" - RefMarketData: TRUE - WithCompanyCharts: TRUE - IsSample: FALSE - IncWWF: FALSE - IncPRI: FALSE - IncCoalRetirement: TRUE - IncOtherSectors: TRUE - IncAlignment: TRUE - IncPeersChart: FALSE - IncPhysicalRisk: FALSE - inc_sda_approach: TRUE - No.Companies: 15 -