Nothing
check.state<-function(state,statefips){
check.state.aux<-function(state,statefips){
data("countyfips",envir = parent.frame())
assign("temp",countyfips)
assign("countyfips",temp)
state<-tolower(state)
if(!statefips & nchar(state)==2){
state<-countyfips$statename[countyfips$acronym==tolower(state)][1]
}else if(statefips){
state<-countyfips$statename[substr(countyfips$fips,1,2)==state][1]
}else{
}
if(state%in%unique(countyfips$statename)==FALSE & statefips==FALSE){
return(NULL)
}
state
}
out<-check.state.aux(state,statefips)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.