R/get_list.R

In bolsec: Bolivian Securities

get_list <- function(data) {
  tryCatch({
    list.df <- formattable(data, align = 'c',
                           caption = "<center>List of securities that show the
                      largest <b>positive</b> and <b>negative</b> price
                      variations during the day in the Bolivian Securities
                        Exchange.</center>")

    return(list.df)
  }, error = function(e) {
    message('Apologies. The get_list function does not accept NULL values.')
  })
}