#' Get Listed Date from Yahoo! Stock.
#'
#' This function will return the listed date of a certain stock.
#' @param x Stock ticker.
#' @keywords get_listed_date
#' @export
#' @examples
#' get_listed_date(2330)
#' get_listed_date(3008)
get_listed_date <- function(x) {
company_url <- sprintf("https://tw.stock.yahoo.com/d/s/company_%s.html", x)
listed_css <- "table:nth-child(1) tr:nth-child(4) td:nth-child(2)"
# get html document
html_doc <- company_url %>%
read_html()
# get listed date
listed_date <- html_doc %>%
html_node(css = listed_css) %>%
html_text() %>%
strsplit(split = "/")
# format listed date
yr_part <- as.numeric(listed_date[[1]][1]) + 1911
listed_date <- sprintf("%s-%s-%s", yr_part, listed_date[[1]][2], listed_date[[1]][3])
listed_date <- as.Date(listed_date)
return(listed_date)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.