make_fips_list <- function(State = state_name){
counties <- get_counties(State)
fipslist <- as.list(as.character(counties$fips_char))
names(fipslist) <- counties$county
return(fipslist)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.