R/get_all_data.R

In leoluyi/CRMaddress: Crawling address in Taiwan

getAddress <- function(functionName){
  getCode <- paste0('try(CRMaddress::',functionName,'())')
  eval(parse(text=as.expression(getCode)))
}


getNeedAddress <- function(x){
  x <- as.data.frame(x)
  x[,c("brand_nm", 'store_nm', "addr")]
}