#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.