R/run_app.R

In 2DegreesInvesting/pastax: Data for the 'PASTAX' Project

run_app <- function() {
  datasets <- r2dii.data:::enlist_datasets(package = "pastax")

  ui <- fluidPage(
    selectInput("dataset", label = "Dataset", choices = names(datasets)),
    downloadButton("download", class = "btn-lg btn-success"),
    DT::DTOutput("table")
  )

  server <- function(input, output, session) {
    dataset <- reactive(datasets[[input$dataset]])

    output$table <- DT::renderDT({
      dataset()
    })

    output$download <- downloadHandler(
      filename = function() {
        paste0(input$dataset, "_", Sys.Date(), ".csv")
      },
      content = function(file) {
        readr::write_csv(dataset(), file)
      }
    )
  }

  shinyApp(ui, server)
}