From 9eb3fdc24c18c09645eff33980f383a0020105fc Mon Sep 17 00:00:00 2001 From: Mauro Lepore Date: Tue, 14 May 2024 23:41:10 +0000 Subject: [PATCH] Revert-reprex --- grave-cobra_reprex.R | 47 ----------------------------- grave-cobra_reprex.md | 68 ----------------------------------------- smoky-moose_reprex.R | 45 ---------------------------- smoky-moose_reprex.md | 70 ------------------------------------------- 4 files changed, 230 deletions(-) delete mode 100644 grave-cobra_reprex.R delete mode 100644 grave-cobra_reprex.md delete mode 100644 smoky-moose_reprex.R delete mode 100644 smoky-moose_reprex.md diff --git a/grave-cobra_reprex.R b/grave-cobra_reprex.R deleted file mode 100644 index 38de60a1..00000000 --- a/grave-cobra_reprex.R +++ /dev/null @@ -1,47 +0,0 @@ -#' --- -#' output: -#' reprex::reprex_document: -#' advertise: FALSE -#' --- - -#'
reprex - -# styler: off -companies <- tibble::tribble( - ~sector, ~companies_id, ~clustered, ~activity_uuid_product_uuid, ~subsector, ~tilt_sector, ~tilt_subsector, ~type, - "unmatched", "a", "a", "a", "energy", "a", "a", "ipr" -) -scenarios <- tibble::tribble( - ~sector, ~subsector, ~year, ~reductions, ~type, ~scenario, - "total", "energy", "2050", "1", "ipr", "a" -) - -# styler: on - -if (!interactive()) withr::local_options(width = 500) - - - -# Load code in the main branch -library(tiltIndicator) -packageVersion("tiltIndicator") - -result_main <- sector_profile(companies, scenarios) - -result_main |> unnest_product() - -result_main |> unnest_company() - -# Compare ---------------------------------------------------------------- - -# Load code in this PR -devtools::load_all() -packageVersion("tiltIndicator") - -result_pr <- sector_profile(companies, scenarios) - -result_pr |> unnest_product() - -result_pr |> unnest_company() - -#'
diff --git a/grave-cobra_reprex.md b/grave-cobra_reprex.md deleted file mode 100644 index 6f20768b..00000000 --- a/grave-cobra_reprex.md +++ /dev/null @@ -1,68 +0,0 @@ -
- -reprex - - -``` r -# styler: off -companies <- tibble::tribble( - ~sector, ~companies_id, ~clustered, ~activity_uuid_product_uuid, ~subsector, ~tilt_sector, ~tilt_subsector, ~type, - "unmatched", "a", "a", "a", "energy", "a", "a", "ipr" -) -scenarios <- tibble::tribble( - ~sector, ~subsector, ~year, ~reductions, ~type, ~scenario, - "total", "energy", "2050", "1", "ipr", "a" -) - -# styler: on - -if (!interactive()) withr::local_options(width = 500) - - - -# Load code in the main branch -library(tiltIndicator) -packageVersion("tiltIndicator") -#> [1] '0.0.0.9221' - -result_main <- sector_profile(companies, scenarios) - -result_main |> unnest_product() -#> # A tibble: 1 × 11 -#> companies_id grouped_by risk_category profile_ranking clustered activity_uuid_product_uuid tilt_sector scenario year type tilt_subsector -#> -#> 1 a a a a ipr a - -result_main |> unnest_company() -#> # A tibble: 1 × 4 -#> companies_id grouped_by risk_category value -#> -#> 1 a NA - -# Compare ---------------------------------------------------------------- - -# Load code in this PR -devtools::load_all() -#> ℹ Loading tiltIndicator -packageVersion("tiltIndicator") -#> [1] '0.0.0.9222' - -result_pr <- sector_profile(companies, scenarios) - -result_pr |> unnest_product() -#> # A tibble: 1 × 11 -#> companies_id grouped_by risk_category profile_ranking clustered activity_uuid_product_uuid tilt_sector scenario year type tilt_subsector -#> -#> 1 a ipr_NA_NA a a a ipr a - -result_pr |> unnest_company() -#> # A tibble: 4 × 4 -#> companies_id grouped_by risk_category value -#> -#> 1 a ipr_NA_NA high 0 -#> 2 a ipr_NA_NA medium 0 -#> 3 a ipr_NA_NA low 0 -#> 4 a ipr_NA_NA 1 -``` - -
diff --git a/smoky-moose_reprex.R b/smoky-moose_reprex.R deleted file mode 100644 index 16e73f5e..00000000 --- a/smoky-moose_reprex.R +++ /dev/null @@ -1,45 +0,0 @@ -#' --- -#' output: -#' reprex::reprex_document: -#' advertise: FALSE -#' --- - -#'
reprex - -# styler: off -companies <- tibble::tribble( - ~sector, ~companies_id, ~clustered, ~activity_uuid_product_uuid, ~subsector, ~tilt_sector, ~tilt_subsector, ~type, - "unmatched", "a", "a", "a", "energy", "a", "a", "ipr" -) -scenarios <- tibble::tribble( - ~sector, ~subsector, ~year, ~reductions, ~type, ~scenario, - "total", "energy", "2050", "1", "ipr", "a" -) - -# styler: on - - - -# Load code in the main branch -library(tiltIndicator) -packageVersion("tiltIndicator") - -result_main <- sector_profile(companies, scenarios) - -result_main |> unnest_product() - -result_main |> unnest_company() - -# Compare ---------------------------------------------------------------- - -# Load code in this PR -devtools::load_all() -packageVersion("tiltIndicator") - -result_pr <- sector_profile(companies, scenarios) - -result_pr |> unnest_product() - -result_pr |> unnest_company() - -#'
diff --git a/smoky-moose_reprex.md b/smoky-moose_reprex.md deleted file mode 100644 index ac1e4d28..00000000 --- a/smoky-moose_reprex.md +++ /dev/null @@ -1,70 +0,0 @@ -
- -reprex - - -``` r -# styler: off -companies <- tibble::tribble( - ~sector, ~companies_id, ~clustered, ~activity_uuid_product_uuid, ~subsector, ~tilt_sector, ~tilt_subsector, ~type, - "unmatched", "a", "a", "a", "energy", "a", "a", "ipr" -) -scenarios <- tibble::tribble( - ~sector, ~subsector, ~year, ~reductions, ~type, ~scenario, - "total", "energy", "2050", "1", "ipr", "a" -) - -# styler: on - - - -# Load code in the main branch -library(tiltIndicator) -packageVersion("tiltIndicator") -#> [1] '0.0.0.9221' - -result_main <- sector_profile(companies, scenarios) - -result_main |> unnest_product() -#> # A tibble: 1 × 11 -#> companies_id grouped_by risk_category profile_ranking clustered -#> -#> 1 a a -#> # ℹ 6 more variables: activity_uuid_product_uuid , tilt_sector , -#> # scenario , year , type , tilt_subsector - -result_main |> unnest_company() -#> # A tibble: 1 × 4 -#> companies_id grouped_by risk_category value -#> -#> 1 a NA - -# Compare ---------------------------------------------------------------- - -# Load code in this PR -devtools::load_all() -#> ℹ Loading tiltIndicator -packageVersion("tiltIndicator") -#> [1] '0.0.0.9222' - -result_pr <- sector_profile(companies, scenarios) - -result_pr |> unnest_product() -#> # A tibble: 1 × 11 -#> companies_id grouped_by risk_category profile_ranking clustered -#> -#> 1 a ipr_NA_NA a -#> # ℹ 6 more variables: activity_uuid_product_uuid , tilt_sector , -#> # scenario , year , type , tilt_subsector - -result_pr |> unnest_company() -#> # A tibble: 4 × 4 -#> companies_id grouped_by risk_category value -#> -#> 1 a ipr_NA_NA high 0 -#> 2 a ipr_NA_NA medium 0 -#> 3 a ipr_NA_NA low 0 -#> 4 a ipr_NA_NA 1 -``` - -