R/data_nasdaq100.R

In OliverHennhoefer/quant: Fundamentals Data for Stock Research

#' @title
#' Fetch components of the Nasdaq-100
#'
#' @description
#' Fetches the list of components provided by
#' [wikipedia.org](https://de.wikipedia.org/wiki/NASDAQ-100)
#'
#' @return data.table data.frame
#' @export

data_nasdaq100 <- function() {

  url <- 'https://en.wikipedia.org/wiki/Nasdaq-100'
  xpath <- '//*[@id="constituents"]'

  html_page <- rvest::read_html(url)
  html_node <- rvest::html_nodes(html_page, xpath = xpath)
  html_tbl <- rvest::html_table(html_node)
  html_dt <- data.table::as.data.table(html_tbl)

  html_dt <- html_dt[, c(2, 1, 3, 4)]
  names <- c('symbol', 'company', 'sector', 'subsector')
  data.table::setnames(html_dt, names)

  return(html_dt)
}