R/msi20.data.R

In AODiakite/casabourse: Casablanca Stock Exchange Data

#' MSI20
#'
#' @return returns a data frame of the MSI20 index
#' @examples msi20.data()
#' @export
msi20.data <- function() {
  tryCatch(
    {
      link <- "https://docs.google.com/spreadsheets/d/1J1rxI4kw1xXxFmm5NI_w4CfaeBwEdJi2nC-8kg0_C-M/edit?usp=sharing"
      msi20 <- gsheet::gsheet2tbl(link)
      msi20
    },
    error = function(e) {
      print("Make sure you have an active internet connection")
    },
    warning = function(w) {
      print("Make sure you have an active internet connection")
    }
  )
}