scenarios.md

library(dplyr, warn.conflicts = FALSE)

scenarioSelector::scenarios %>%
  select(variable, unit, technology) %>%
  distinct()
#> # A tibble: 29 x 3
#>    variable        unit                                         technology
#>    <chr>           <chr>                                        <chr>     
#>  1 emission_factor tonnes of CO2 per tonne of cement            <NA>      
#>  2 emission_factor tonnes of CO2 per tonne of steel             <NA>      
#>  3 emission_factor tonnes of CO2 per passenger per km travelled <NA>      
#>  4 tmsr            <NA>                                         coal      
#>  5 smsp            <NA>                                         coal      
#>  6 tmsr            <NA>                                         gas       
#>  7 smsp            <NA>                                         gas       
#>  8 tmsr            <NA>                                         oil       
#>  9 smsp            <NA>                                         oil       
#> 10 tmsr            <NA>                                         coalcap   
#> # … with 19 more rows