Implement selector `grouping_transition_risk`

[maurolepore]

• Relates to #80

[maurolepore]

@AnneSchoenauer do you think it's worth implementing a selector for grouping_transition_risk?

I hesitate because this fileter seems to duplicate what the user can accomplish with scenario, year, and groping_emission combined.

@kalashsinghal FYI

Product

library(tidyverse)

data <- arrow::open_dataset("../tiltWebToolData/db/product/")

data |> 
  distinct(grouping_transition_risk, scenario, year, grouping_emission) |> 
  collect() |> 
  as_tibble()
#> # A tibble: 5,154 × 4
#>    grouping_transition_risk scenario  year grouping_emission
#>    <chr>                    <chr>    <int> <chr>            
#>  1 1.5C RPS_2030_NA         1.5C RPS  2030 <NA>             
#>  2 1.5C RPS_2050_NA         1.5C RPS  2050 <NA>             
#>  3 NZ 2050_2030_NA          NZ 2050   2030 <NA>             
#>  4 NZ 2050_2050_NA          NZ 2050   2050 <NA>             
#>  5 NA_NA_NA                 <NA>        NA <NA>             
#>  6 NA_NA_NA                 <NA>        NA <NA>             
#>  7 NA_NA_NA                 <NA>        NA <NA>             
#>  8 NA_NA_NA                 <NA>        NA <NA>             
#>  9 NA_NA_NA                 <NA>        NA <NA>             
#> 10 NA_NA_NA                 <NA>        NA <NA>             
#> # ℹ 5,144 more rows

data |> 
  distinct(grouping_transition_risk) |> 
  collect() |> 
  as_tibble() |> 
  print(n = Inf)
#> # A tibble: 35 × 1
#>    grouping_transition_risk         
#>    <chr>                            
#>  1 1.5C RPS_2030_NA                 
#>  2 1.5C RPS_2050_NA                 
#>  3 NZ 2050_2030_NA                  
#>  4 NZ 2050_2050_NA                  
#>  5 NA_NA_NA                         
#>  6 1.5C RPS_2030_tilt_subsector     
#>  7 1.5C RPS_2050_tilt_subsector     
#>  8 NZ 2050_2030_tilt_subsector      
#>  9 NZ 2050_2050_tilt_subsector      
#> 10 NA_NA_tilt_subsector             
#> 11 NA_NA_all                        
#> 12 1.5C RPS_2030_all                
#> 13 1.5C RPS_2050_all                
#> 14 NZ 2050_2030_all                 
#> 15 NZ 2050_2050_all                 
#> 16 1.5C RPS_2030_isic_4digit        
#> 17 1.5C RPS_2050_isic_4digit        
#> 18 NZ 2050_2030_isic_4digit         
#> 19 NZ 2050_2050_isic_4digit         
#> 20 NA_NA_isic_4digit                
#> 21 1.5C RPS_2030_unit_tilt_subsector
#> 22 1.5C RPS_2050_unit_tilt_subsector
#> 23 NZ 2050_2030_unit_tilt_subsector 
#> 24 NZ 2050_2050_unit_tilt_subsector 
#> 25 NA_NA_unit_tilt_subsector        
#> 26 1.5C RPS_2050_unit_isic_4digit   
#> 27 NZ 2050_2030_unit_isic_4digit    
#> 28 NZ 2050_2050_unit_isic_4digit    
#> 29 1.5C RPS_2030_unit_isic_4digit   
#> 30 NA_NA_unit_isic_4digit           
#> 31 1.5C RPS_2030_unit               
#> 32 1.5C RPS_2050_unit               
#> 33 NZ 2050_2030_unit                
#> 34 NZ 2050_2050_unit                
#> 35 NA_NA_unit

Company

library(tidyverse)

data <- arrow::open_dataset("../tiltWebToolData/db/company/")

data |> 
  distinct(grouping_transition_risk) |> 
  collect() |> 
  as_tibble() |> 
  print(n = Inf)
#> # A tibble: 25 × 1
#>    grouping_transition_risk         
#>    <chr>                            
#>  1 <NA>                             
#>  2 1.5C RPS_2030_isic_4digit        
#>  3 1.5C RPS_2050_isic_4digit        
#>  4 NZ 2050_2030_isic_4digit         
#>  5 NZ 2050_2050_isic_4digit         
#>  6 1.5C RPS_2030_all                
#>  7 1.5C RPS_2050_all                
#>  8 NZ 2050_2030_all                 
#>  9 NZ 2050_2050_all                 
#> 10 1.5C RPS_2030_tilt_subsector     
#> 11 1.5C RPS_2050_tilt_subsector     
#> 12 NZ 2050_2030_tilt_subsector      
#> 13 NZ 2050_2050_tilt_subsector      
#> 14 1.5C RPS_2030_unit               
#> 15 1.5C RPS_2050_unit               
#> 16 NZ 2050_2030_unit                
#> 17 NZ 2050_2050_unit                
#> 18 1.5C RPS_2030_unit_tilt_subsector
#> 19 1.5C RPS_2050_unit_tilt_subsector
#> 20 NZ 2050_2030_unit_tilt_subsector 
#> 21 NZ 2050_2050_unit_tilt_subsector 
#> 22 1.5C RPS_2030_unit_isic_4digit   
#> 23 1.5C RPS_2050_unit_isic_4digit   
#> 24 NZ 2050_2030_unit_isic_4digit    
#> 25 NZ 2050_2050_unit_isic_4digit

[AnneSchoenauer]

Hi @maurolepore i think it is fine for now. Let’s leave it as it is and we try it out with some users while you are at the conference. If they think they miss it we might change it once you are back.

[maurolepore]

Great. Closing as not planned so it doesn't bury the most critical stuff.