Skip to contents

Polish output at company level

Usage

sector_profile_any_polish_output_at_company_level(data)

Arguments

data

The output of sector_profile*() functions.

Value

A dataframe.

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