This repository has been archived by the owner on Jun 4, 2021. It is now read-only.

두 대통령의 연설문 10개씩 가져오기

Jump to bottom

Chan-Yub Park edited this page May 8, 2018 · 1 revision

links <- search_speech(president = "이명박")
links <- links[1:10,]
dataAll <- c()
for(i in 1:nrow(links)){
  print(i)
  dat <- get_speech(links[i,6], paragraph = T)
  dataAll <- rbind(dataAll,dat)
}

links <- search_speech(president = "노무현")
links <- links[1:10,]
for(i in 1:nrow(links)){
  print(i)
  dat <- get_speech(links[i,6], paragraph = T)
  dataAll <- rbind(dataAll,dat)
}