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

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

getAvailableReporters <-
  function(input, output, session, path = "~/ctData/ShinyData/") {
    listFiles <- reactive({
      files <- list.files(path, ".rds")
      # files[files != "0.rds"]
    })
    return(listFiles)
  }