R/bySector.R

In AODiakite/casabourse: Casablanca Stock Exchange Data

#Get Value By Sector
#' bySector
#'
#'
#' @return data.frame
#' @description It returns a table containing data by industry. It is a function without arguments.
#' @examples {R.utils::withTimeout(bySector(),timeout = 4)}
#' @export
bySector=function(){
  tryCatch(
    {
      bySect =gsheet::gsheet2tbl("https://docs.google.com/spreadsheets/d/1gYSo8SnPLs2xN96j1KPa5_ESIay_Tew779kJ7vBHiYY/edit?usp=sharing")
      bySect
    },
    error = function(e) {
      print("Make sure you have an active internet connection")
    },
    warning = function(w) {
      print("Make sure you have an active internet connection")
    }
  )

}