R/market_stats.R

In Hussain-Alsalman/tasi: Application Programming Interface for Saudi Stock Market Data

#' Getting daily market daily report
#'
#' @return data frame containing all daily report for all companies listed in Saudi Stock Market
#' @import magrittr
#' @export
#'
#' @examples
#' get_daily_market_stats()
get_daily_market_stats <- function() {
url <- constants$daily_report
tbl <- rvest::read_html(url) %>%
  rvest::html_element(css = "div.tableStyle:nth-child(2) > table:nth-child(1)") %>%
  rvest::html_table(header = FALSE)
cl_col_names <- tbl[1, ] %>%
  stringr::str_remove_all(pattern = "\\(SAR\\)") %>%
  janitor::make_clean_names()

colnames(tbl) <- cl_col_names
tbl <- tbl[-1, ]
tbl[,2:ncol(tbl)] <- apply(tbl[,-1], c(1,2), function(x) gsub("%", "", x)) %>% apply(c(1,2), num_format)
tbl <- tbl %>%
  dplyr::left_join(tasi::stock_indices, by = c("company" = "tradingNameEn"))
return(tbl)
}