require(httr)
require(magrittr)

key <-"XXXXXXXXXXXXXXXXXXXXX"
address_get <- function(address, keyinput = key){
url_gen <- paste0("https://maps.googleapis.com/maps/api/geocode/json?language=zh-TW&address=",
address %>% gsub(" ","",.) ,
"&key=",keyinput)
urlData <- GET(url_gen,
add_headers("accept"="text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8",
"accept-language"="zh-TW,zh;q=0.9,en-US;q=0.8,en;q=0.7",
"cache-control"="max-age=0",
"upgrade-insecure-requests"="1",
"user-agent"="Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.121 Safari/537.36",
"x-client-data"="CJK2yQEIpbbJAQjEtskBCKmdygEIqKPKAQixp8oBCL+nygEI4qjKARj5pcoB"))
return(urlData)
}
url_Data <- address_get(address ="106台灣台北市大安區信義路四段88F號")
url_tmp <- url_Data %>% content(as = "parsed")
url_final <- list(address = url_tmp$results[[1]]$formatted_address,
lat = url_tmp$results[[1]]$geometry$location$lat,
lng = url_tmp$results[[1]]$geometry$location$lng)
url_final