Wru 2.0

[mdblocker]

This check was used to verify the new fips table is equal to the previous one loaded via .rda:

library(tidyverse)

# How it is built in the new version
fips.codes <- structure(list(State = structure(1:55, levels = c("AK", "AL", 
                                                                "AR", "AS", "AZ", "CA", "CO", "CT", "DC", "DE", "FL", "GA", "GU", 
                                                                "HI", "IA", "ID", "IL", "IN", "KS", "KY", "LA", "MA", "MD", "ME", 
                                                                "MI", "MN", "MO", "MS", "MT", "NC", "ND", "NE", "NH", "NJ", "NM", 
                                                                "NV", "NY", "OH", "OK", "OR", "PA", "PR", "RI", "SC", "SD", "TN", 
                                                                "TX", "UT", "VA", "VI", "VT", "WA", "WI", "WV", "WY"), class = "factor"), 
                             FIPS = c(2L, 1L, 5L, 60L, 4L, 6L, 8L, 9L, 11L, 10L, 12L, 
                                      13L, 66L, 15L, 19L, 16L, 17L, 18L, 20L, 21L, 22L, 25L, 24L, 
                                      23L, 26L, 27L, 29L, 28L, 30L, 37L, 38L, 31L, 33L, 34L, 35L, 
                                      32L, 36L, 39L, 40L, 41L, 42L, 72L, 44L, 45L, 46L, 47L, 48L, 
                                      49L, 51L, 78L, 50L, 53L, 55L, 54L, 56L)), class = "data.frame", row.names = c(NA,-55L))

# the old .rda that has State.FIPS (and 'pid', but that was not used here)
rda <- load("~/Downloads/sysdata.rda")

>all.equal(fips.codes, State.FIPS)
[1] TRUE

[kosukeimai]

@1beb Let me know if these changes look good to you and if they are, let's merge them into the main and publish it CRAN. There is also a related question about this version. Thanks.

[kosukeimai]

@mdblocker Thanks for all of these contributions. If any of your changes addresses the outstanding issues, please go ahead and respond to them. Thanks again.