Polish output at company level
Source:R/sector_profile_any_polish_output_at_copmany_level.R
sector_profile_any_polish_output_at_company_level.Rd
Polish output at company level
Examples
library(tiltToyData)
library(readr)
options(readr.show_col_types = FALSE)
companies <- read_csv(toy_sector_profile_companies())
scenarios <- read_csv(toy_sector_profile_any_scenarios())
sector_profile(companies, scenarios) |>
unnest_company() |>
sector_profile_any_polish_output_at_company_level()
#> # A tibble: 1,152 × 6
#> companies_id type scenario year risk_category value
#> <chr> <chr> <chr> <chr> <chr> <dbl>
#> 1 antimonarchy_canine ipr 1.5C RPS 2030 high 0
#> 2 antimonarchy_canine ipr 1.5C RPS 2030 medium 1
#> 3 antimonarchy_canine ipr 1.5C RPS 2030 low 0
#> 4 antimonarchy_canine ipr 1.5C RPS 2030 NA 0
#> 5 antimonarchy_canine ipr 1.5C RPS 2050 high 1
#> 6 antimonarchy_canine ipr 1.5C RPS 2050 medium 0
#> 7 antimonarchy_canine ipr 1.5C RPS 2050 low 0
#> 8 antimonarchy_canine ipr 1.5C RPS 2050 NA 0
#> 9 antimonarchy_canine weo NZ 2050 2030 high 1
#> 10 antimonarchy_canine weo NZ 2050 2030 medium 0
#> # ℹ 1,142 more rows
companies_upstream <- read_csv(toy_sector_profile_upstream_companies())
inputs <- read_csv(toy_sector_profile_upstream_products())
sector_profile_upstream(companies_upstream, scenarios, inputs) |>
unnest_company() |>
sector_profile_any_polish_output_at_company_level()
#> # A tibble: 1,152 × 6
#> companies_id type scenario year risk_category value
#> <chr> <chr> <chr> <chr> <chr> <dbl>
#> 1 antimonarchy_canine ipr 1.5C RPS 2030 high 0
#> 2 antimonarchy_canine ipr 1.5C RPS 2030 medium 1
#> 3 antimonarchy_canine ipr 1.5C RPS 2030 low 0
#> 4 antimonarchy_canine ipr 1.5C RPS 2030 NA 0
#> 5 antimonarchy_canine ipr 1.5C RPS 2050 high 1
#> 6 antimonarchy_canine ipr 1.5C RPS 2050 medium 0
#> 7 antimonarchy_canine ipr 1.5C RPS 2050 low 0
#> 8 antimonarchy_canine ipr 1.5C RPS 2050 NA 0
#> 9 antimonarchy_canine weo NZ 2050 2030 high 1
#> 10 antimonarchy_canine weo NZ 2050 2030 medium 0
#> # ℹ 1,142 more rows