R/main_holders.R

In skylics/stock_analysis: Predict how price of specific financial asset will change.

#' Find the listing date of given stock
#'
#' @param ticker a ticker code in the format as "000000"
#'
#' @return a single date, the stock was listed on the market
#' @export
#'
#' @examples
#' "stock name" %>% find_code2 %>% listing_date
listing_date <- function(ticker) {

  library(rebus, quietly = TRUE)

  url_code <- paste("http://wisefn.stock.daum.net/company/c1020001.aspx?cmp_cd=", ticker, "&frq=&rpt=", sep = "")
  tem_code <- read_html(url_code, encoding = "UTF-8")
  text <- tem_code %>% html_nodes("td") %>% html_text()
  text_clean <- text %>% stringr::str_detect("상장일") %>% text[.] %>%
    stringr::str_match("상장일: " %R% capture(one_or_more(NOT_SPC)) %R% "\\)" %R% END) %>% .[2] %>%
    as.Date("%Y/%m/%d")

  text_clean
}