R/zzz.R

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

## quiets concerns of R CMD check re: the .'s that appear in pipelines
if (getRversion() >= "2.15.1")  utils::globalVariables(c("."))

.onLoad <- function(libname, pkgname) {

  #Obtain URL unique segment for retrieving historical records
  .pkgenv <- parent.env(environment())
  res <- httr::GET("https://www.saudiexchange.sa/wps/portal/saudiexchange/newsandreports/reports-publications/historical-reports/")
  inx <- gregexpr(pattern = '(?<=z1/).*(?=\\/dz)' , text = res$headers$`content-location`,perl = TRUE)
  .pkgenv[["constants"]][["records_unique_key"]] <- as.character(regmatches(res$headers$`content-location`, inx))

  #Obtain URL unique segment for retrieving dividends
  res <- httr::GET("https://www.saudiexchange.sa/wps/portal/saudiexchange/newsandreports/issuer-financial-calendars/dividends")
  inx <- gregexpr(pattern = '(?<=z1/).*(?=\\/dz)' , text = res$headers$`content-location`, perl = TRUE)
  .pkgenv[["constants"]][["dividends_unique_key"]] <- as.character(regmatches(res$headers$`content-location`, inx))

  #Obtain URL unique segment for retrieving financial statements
  base_url <- "https://www.saudiexchange.sa"
  res <- httr::GET(base_url) |>
    httr::content() |>
    rvest::html_elements("a")

  inx <- res |>
    grep(pattern = "company-profile-main")
  link <- res[inx[1]] |>
    rvest::html_attr('href')

  fin_uniq_key <- regmatches(link, gregexpr(pattern = '(?<=z1/).*(?=\\/\\?company)', text = link, perl = TRUE))
  .pkgenv[["constants"]][["fin_unique_key"]] <- fin_uniq_key
}