DAUM API LOOP

gistfile1.txt

library(XML)
library(RCurl)
library(tidyverse)

# DaumMap APIKEY 
APIKey <- ""

# Request Parameters
getUrls <- function(address, type){
  url <- "http://apis.daum.net/local/geo/addr2coord?apikey="
  urls <- NULL
  urls <- c(urls, paste0(url, APIKey,"&q=",address,"&output=", type))
  return (urls)
}

# Response Element Setting
getData <- function(url){
  root <- xmlRoot(xmlParse(url))
  lat <- xmlSApply(getNodeSet(root, "//lat"), xmlValue)
  lng <- xmlSApply(getNodeSet(root, "//lng"), xmlValue)
  latlon <- cbind(lat, lng)
  latlon_df <- as.data.frame(latlon, rownames=NULL)
  latlon_false <- data.frame(lat = NA, lng = NA, stringsAsFactors = F)

  #만약 lat, lng이 제값을 가지면 그대로 반환 아니면 NA로 채움
  if(is.list(lat) | is.list(lng)){
    return(latlon_false)
  }else{
    return(latlon_df)
  }
}

# get data
my_address <- unique(read.csv("address.csv", stringsAsFactors = F, encoding = "utf-8"))

# empty vector
final_lonlat <- NULL

# loop
for(i in my_address$address){
  xml_address <- getUrls(i, "xml")
  local_lonlat <- getData(xml_address)
  final_lonlat <- rbind(final_lonlat, local_lonlat)
}

gistfile2.txt

address
서울시 송파구 오금로35길 10
서울시 중구 동호로330
서울시 강남구 도산대로 16길 18
서울시 강남구 언주로 153길 5
서울시 용산구 원효로 139-2
서울시 서초구 반포대로 28길 8
서울시 강남구 도산대로 50길 14
서울시 종로구 새문안로 5가길 7
서울시 마포구 마포대로 186-6
서울시 서초구 서운로 136
서울시 성북구 창경궁로 43길 9
서울시 종로구 통일로 184-11
서울시 종로구 관수동 163
서울시 서초구 서초대로 48길 64
서울시 마포구 토정로 37길 41
서울시 종로구 사직로 8길 9-1
서울시 강남구 봉은사로 30길 73
서울시 강남구 언주로 522
서울시 종로구 삼청동 2
서울시 중구 세종대로 19길 16
서울시 종로구 재동 85-2
서울시 영등포구 여의도동 13
서울시 종로구 인사동 14길 23
서울시 강남구 테헤란로 51길 15
서울시 서초구 효령로 49길 25
서울시 종로구 자하문로 118
서울시 영등포구 여의도동 43
서울시 마포구 마포대로 14가길 18-7
서울시 종로구 사직로 12길 1-2
서울시 강남구 신사동 627-17
서울시 종로구 인사동 8-7
서울시 강남구 테헤란로 63길 20
서울시 용산구 대사관로 40
서울시 마포구 만리재로 1길 14
서울시 서초구 서운로 39
서울시 중구 무교로 19
서울시 종로구 우정국로 56
서울시 서대문구 연희로 60
서울시 종로구 자하문로 6길 12-18
서울시 서초구 서운로 12-1
서울시 강남구 압구정로 79길 56
서울시 강남구 도산대로 334
서울시 용산구 이촌로 248
서울시 종로구 자하문로 41-2
서울시 강서구 화곡로 53길 10
서울시 서초구 서초2동 1365-22
서울시 종로구 종로 16길 13
서울시 서초구 서초중앙로 188
서울시 서초구 사평대로 18길 10
서울시 서초구 서초대로 73길 58
서울시 송파구 백제고분로 187
서울시 강남구 언주로 107길 7
서울시 종로구 팔판길 42
서울시 강남구 언주로 134길 20
서울시 마포구 마포대로 1길 16
서울시 영등포구 여의나루 67
서울시 서초구 방배중앙로 167
서울시 서초구 방배천로 4길 15-3
서울시 강남구 봉은사로 227
서울시 중구 덕수궁길 116-1
서울시 마포구 토정로 35길 11
서울시 서초구 신반포로 31
서울시 종로구 인사동길 47-4
서울시 종로구 경희궁길 12
서울시 서초구 서초중앙로 247
서울시 종로구 인사동 10길 23-9
서울시 용산구 회나무로 44길 10
서울시 서대문구 충정로 2길 8
서울시 강남구 선릉로 132길 29
서울시 용산구 소월로 134
서울시 용산구 녹사평대로 222
서울시 종로구 북촌로 18
서울시 마포구 토정로 255
서울시 강남구 봉은사로 68길 21
서울시 강남구 봉은사로 68길 21
서울시 종로구 경희궁 1가길 1
서울시 서초구 효령로 132
서울시 마포구 월드컵북로 400
서울시 서초구 나루터로 10길 20
서울시 강남구 테헤란로 113길 13
서울시 영등포구 여의대로 8
서울시 종로구 동숭길 39
서울시 종로구 삼일대로 440
서울시 종로구 경희궁 1길 1
서울시 서초구 서초중앙로 28길 16
서울시 용산구 이촌로 75길 12
서울시 강남구 도산대로 318
서울시 용산구 이태원로 23길 6
서울시 용산구 이태원로 151
서울시 마포구 와우산로 15길 28