R/get_all_data.R

Defines functions getNeedAddress getAddress

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")]
}
leoluyi/CRMaddress documentation built on May 21, 2017, 11:41 a.m.