Cộng đồng Hỏi & Đáp của Inflearn

# 인코딩 변환 안해줘도 됩니다.

search_loc <- function(keyword) {

keyword2<-URLencode(keyword)

url <-paste0("https://map.naver.com/v5/api/instantSearch?lang=ko&caller=pcweb&types=place,address,bus&coords=37.5499346,126.9145229&query=",keyword2)

b<-readLines(url, encoding = "UTF-8")

b

library(RJSONIO)

b2<-fromJSON(b)

c(b2$place[[1]]$title, b2$place[[1]]$x, b2$place[[1]]$y)

}

search_loc("서울역")