refactor

Author: kalashsinghal

NAMESPACE

@@ -4,6 +4,7 @@ export(calculate_co2_descriptive_analysis_per_benchmark)
 export(calculate_trs_descriptive_analysis_per_tr_benchmark)
 export(example_emission_product_best_case_worst_case)
 export(example_emission_product_co2_des_analysis)
+export(example_sector_product_best_case_worst_case)
 export(example_transition_risk_company_emission_avg_best_case_worst_case)
 export(example_transition_risk_company_sector_avg_best_case_worst_case)
 export(example_transition_risk_company_transition_risk_avg_best_case_worst_case)
@@ -36,7 +37,6 @@ importFrom(tiltIndicator,unnest_company)
 importFrom(tiltIndicator,unnest_product)
 importFrom(tiltIndicatorAfter,profile_emissions)
 importFrom(tiltIndicatorAfter,profile_sector)
-importFrom(tiltIndicatorAfter,transition_risk_profile)
 importFrom(tiltToyData,toy_ecoinvent_activities)
 importFrom(tiltToyData,toy_ecoinvent_europages)
 importFrom(tiltToyData,toy_ecoinvent_inputs)
@@ -47,4 +47,5 @@ importFrom(tiltToyData,toy_isic_name)
 importFrom(tiltToyData,toy_sector_profile_any_scenarios)
 importFrom(tiltToyData,toy_sector_profile_companies)
 importFrom(tiltTransitionRisk,toy_all_activities_scenario_sectors)
+importFrom(tiltTransitionRisk,transition_risk_profile)
 importFrom(utils,data)

R/tiltDataAnalysis-package.R

@@ -22,7 +22,6 @@
 #' @importFrom tiltIndicator unnest_product
 #' @importFrom tiltIndicatorAfter profile_emissions
 #' @importFrom tiltIndicatorAfter profile_sector
-#' @importFrom tiltIndicatorAfter transition_risk_profile
 #' @importFrom tiltToyData toy_ecoinvent_activities
 #' @importFrom tiltToyData toy_ecoinvent_europages
 #' @importFrom tiltToyData toy_ecoinvent_inputs
@@ -33,6 +32,7 @@
 #' @importFrom tiltToyData toy_sector_profile_any_scenarios
 #' @importFrom tiltToyData toy_sector_profile_companies
 #' @importFrom tiltTransitionRisk toy_all_activities_scenario_sectors
+#' @importFrom tiltTransitionRisk transition_risk_profile
 #' @importFrom utils data
 ## usethis namespace: end
 NULL

man/example_emission_product_co2_des_analysis.Rd

@@ -34,9 +34,8 @@ options(readr.show_col_types = FALSE)
 
 ```{r, warning=FALSE, echo=FALSE}
 # read_csv("transition_risk_profile_at_product_level_16_10_24.csv")
-sector_product_example <- read_csv("transition_risk_profile_at_product_level_16_10_24.csv")
-#   example_sector_product_best_case_worst_case()
-# kable(emission_product_example |> head(20))
+sector_product_example <- example_sector_product_best_case_worst_case()
+kable(sector_product_example |> head(20))
 ```
 
 ### Average `sector_profile_equal_weight` per grouping_sector and sector_category