Im having some issues with cxy_geocode when it is within a function - I think due to t

<a class="user-mention notranslate" data-hovercard-type="user" data-hovercard-url="/us

Thanks <a class="user-mention notranslate" data-hovercard-type="user" data-hovercard-u

cxy_geocode issues within a function (non standard evaluation issue?) about censusxy HOT 2 CLOSED

chris-prener commented on August 14, 2024

cxy_geocode issues within a function (non standard evaluation issue?)

from censusxy.

Comments (2)

bransonf commented on August 14, 2024 1

@lepromatous It is in fact the Non-standard evaluation that makes it difficult to put this function within another function. Providing an example is much appreciated. One solution to the problem here is to force quotation of the input, and then take advantage of quasiquotation using !!. Tidy evaluation, as it's called, is still difficult for me to explain well. If you're interested in learning more Read This

### SOME DATA
data<-data.frame(Address = c("4643 Lindell Blvd", "3545 Lafayette Ave"), City = c("St. Louis", "St. Louis"), State = c("MO", "MO"), ZIP.Code = c(63108, 63104) )

#### BEGIN FUNCTION
geocodeme<-function(data, StateSub, Street.col, City.col, State.col, Zip.col){
  
  #### state subset
  
  sub<-subset(data, toupper(data[,rlang::quo_name(rlang::enquo(State.col))])%in%toupper(StateSub))
  
  require("censusxy") || install.packages("censusxy")
  library(censusxy)
  
  ##### GEOCODE

  Street.col <- rlang::quo_name(rlang::enquo(Street.col))
  City.col <- rlang::quo_name(rlang::enquo(City.col))
  State.col <- rlang::quo_name(rlang::enquo(State.col))
  Zip.col <- rlang::quo_name(rlang::enquo(Zip.col))
  
  
  results <- cxy_geocode(sub, address = !!Street.col, city = !!City.col, state = !!State.col, zip= !!Zip.col, style="full", output="sf")
  
  require("tigris") || install.packages("tigris")
  library(tigris)
  
  require("sf") || install.packages("sf")
  library(sf)
  
  ### pull state
  shp<-block_groups(toupper(StateSub), class="sf")
  
  #### set projection
  results <- sf::st_transform(results, "+proj=longlat +datum=WGS84")
  shp <- sf::st_transform(shp, "+proj=longlat +datum=WGS84")
  
  require("spatialEco") || install.packages("spatialEco")
  library(spatialEco)
  
  out<-point.in.poly(results, shp)
  rm(shp)
  rm(results)
  return(out)
  
}
#### END FUNCTION

### run function
blah<-geocodeme(data, StateSub="MO", Street.col=Address, City.col=City, State.col=State, Zip.col=ZIP.Code)