Commitb6ae1d4

committed

1 parent6e26f4f commitb6ae1d4Copy full SHA for b6ae1d4

File tree

-3

lines changed

-3

lines changed

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,9 @@ getFiat <- function(country = NULL, state = NULL, county = NULL, fip = NULL) {`
`76`	`76`	`},`
`77`	`77`	`error=function(e){NULL })`
`78`	`78`
`79`		`-if(is.null(ret)){`
	`79`	`+ret=ret[!sf::st_is_empty(ret),]`
	`80`	`+`
	`81`	`+if(is.null(ret)\| nrow(ret)==0 ){`
`80`	`82`	`ret= list_states()`
`81`	`83`	`ret=ret[tolower(ret$region)%in% tolower(state),]`
`82`	`84`	`ret= merge(`
`@@ -85,8 +87,6 @@ getFiat <- function(country = NULL, state = NULL, county = NULL, fip = NULL) {`
`85`	`87`	`all.x=TRUE)`
`86`	`88`	`}`
`87`	`89`
`88`		`-ret=ret[!sf::st_is_empty(ret),]`
`89`		`-`
`90`	`90`	`if(nrow(ret)==0 ){ stop('State, county pair(s) not found',call.=FALSE) }`
`91`	`91`
`92`	`92`	`map2<-ret`

Comments

(0)