inst/shiny-examples/trade-data-explorer/helpers/getDataAvailability.R

In EBukin/tradeAnalysis-pack: Set of functions for trade data analysis

getDataAvailability <-
  function(input, output, session, path = "~/ctData/ShinyData/") {
    listFiles <- reactive({
      if (file.exists(stringr::str_c(path, "/", list.files(path, ".csv")))) {
        try(readr::read_csv(
          file.path(path, list.files(path, ".csv")),
          col_types = cols(
            Reporter.Code = col_integer(),
            Year = col_integer(),
            Type = col_character()
          )
        ))
      } else {
        NULL
      }
      
    })
    return(listFiles)
  }