Driver IMD scores not labelled

[PublicHealthDataGeek]

library(stats19)
#> Data provided under OGL v3.0. Cite the source and link to:
#> www.nationalarchives.gov.uk/doc/open-government-licence/version/3/
    
    casualties = get_stats19(year = 2017, type = "cas", ask = FALSE)
#> Files identified: dftRoadSafetyData_Casualties_2017.zip
#>    http://data.dft.gov.uk.s3.amazonaws.com/road-accidents-safety-data/dftRoadSafetyData_Casualties_2017.zip
#> Attempt downloading from:
#> Data saved at /var/folders/1r/vlxqbrms055dqt5cpxkrn13m0000gn/T//RtmpChjy74/dftRoadSafetyData_Casualties_2017/Cas.csv
    vehicles = get_stats19(year = 2017, type = "veh", ask = FALSE)
#> Files identified: dftRoadSafetyData_Vehicles_2017.zip
#>    http://data.dft.gov.uk.s3.amazonaws.com/road-accidents-safety-data/dftRoadSafetyData_Vehicles_2017.zip
#> Attempt downloading from:
#> Data saved at /var/folders/1r/vlxqbrms055dqt5cpxkrn13m0000gn/T//RtmpChjy74/dftRoadSafetyData_Vehicles_2017/Veh.csv
    
    unique(casualties$casualty_imd_decile)
#>  [1] "More deprived 10-20%"         "Data missing or out of range"
#>  [3] "More deprived 40-50%"         "Less deprived 10-20%"        
#>  [5] "More deprived 20-30%"         "More deprived 30-40%"        
#>  [7] "Less deprived 40-50%"         "Most deprived 10%"           
#>  [9] "Least deprived 10%"           "Less deprived 30-40%"        
#> [11] "Less deprived 20-30%"
    unique(vehicles$driver_imd_decile)
#>  [1] -1  9  2  5  4  3  6  1  8  7 10

^{Created on 2019-03-12 by the reprex package (v0.2.1)}

[Robinlovelace]

Thanks for reporting this @PublicHealthDataGeek - will aim to look at this next week.

[Robinlovelace]

Heads-up @PublicHealthDataGeek I think I've fixed it - result on locally installed version. Please test this works after you've installed the latest dev version:

library(stats19)
#> Data provided under OGL v3.0. Cite the source and link to:
#> www.nationalarchives.gov.uk/doc/open-government-licence/version/3/
casualties = get_stats19(year = 2017, type = "cas", ask = FALSE)
#> Files identified: dftRoadSafetyData_Casualties_2017.zip
#>    http://data.dft.gov.uk.s3.amazonaws.com/road-accidents-safety-data/dftRoadSafetyData_Casualties_2017.zip
#> Attempt downloading from:
#> Data saved at /tmp/RtmppUpBjB/dftRoadSafetyData_Casualties_2017/Cas.csv
vehicles = get_stats19(year = 2017, type = "veh", ask = FALSE)
#> Files identified: dftRoadSafetyData_Vehicles_2017.zip
#>    http://data.dft.gov.uk.s3.amazonaws.com/road-accidents-safety-data/dftRoadSafetyData_Vehicles_2017.zip
#> Attempt downloading from:
#> Data saved at /tmp/RtmppUpBjB/dftRoadSafetyData_Vehicles_2017/Veh.csv
unique(casualties$casualty_imd_decile)
#>  [1] "More deprived 10-20%"         "Data missing or out of range"
#>  [3] "More deprived 40-50%"         "Less deprived 10-20%"        
#>  [5] "More deprived 20-30%"         "More deprived 30-40%"        
#>  [7] "Less deprived 40-50%"         "Most deprived 10%"           
#>  [9] "Least deprived 10%"           "Less deprived 30-40%"        
#> [11] "Less deprived 20-30%"
unique(vehicles$driver_imd_decile)
#>  [1] "Data missing or out of range" "Less deprived 10-20%"        
#>  [3] "More deprived 10-20%"         "More deprived 40-50%"        
#>  [5] "More deprived 30-40%"         "More deprived 20-30%"        
#>  [7] "Less deprived 40-50%"         "Most deprived 10%"           
#>  [9] "Less deprived 20-30%"         "Less deprived 30-40%"        
#> [11] "Least deprived 10%"

^{Created on 2019-04-03 by the reprex package (v0.2.1)}