R/get_options.R

In forkonlp/presidentSpeech: Korean President's Speech Text

#' get search options for president
#'
#' return options of president params of \code{\link{search_speech}}.
#'
#' @return character vector of president names
#'
#' @export
#' @importFrom rvest html_nodes
#' @importFrom rvest html_text
#' @importFrom rvest html_attr
#' @importFrom httr GET content config

get_president <- function() {
  tar <- "https://www.pa.go.kr/research/contents/speech/index.jsp"

  hobj <- httr::GET(tar, httr::config(ssl_verifypeer = 0))
  hobj <- httr::content(hobj)

  category <- rvest::html_nodes(hobj, "div.items label")
  category <- rvest::html_attr(category, "for")

  label <- rvest::html_nodes(hobj, "div.items label")
  label <- rvest::html_text(label)

  res <- data.frame(category, label)

  res <- res[-grep("[a-z]0", res$category), ]
  res <- res$label
  res <- gsub("\\s+", "", res)

  return(res)
}


#' get search options for event
#'
#' return options of event params of \code{\link{search_speech}}.
#'
#' @return character vector of events
#'
#' @export
#' @importFrom rvest html_nodes
#' @importFrom rvest html_text
#' @importFrom rvest html_attr
#' @importFrom httr GET content config
#' @importFrom tibble tibble

get_event <- function() {
  tar <- "https://www.pa.go.kr/research/contents/speech/index.jsp"

  hobj <- httr::GET(tar, httr::config(ssl_verifypeer = 0))
  hobj <- httr::content(hobj)

  category <- rvest::html_nodes(hobj, "div.items option")
  category <- rvest::html_attr(category, "value")

  res <- category[-grepl("", category)]

  return(res)
}