R/datasets.load.R

In datasets.load: Graphical Interface for Loading Datasets

#' Load Datasets from a Menu
#' @name datasets.load
#' @import shiny miniUI
#' @importFrom utils data
#' @export

datasets.load <- function() {

  # ui
  ui <- miniPage(
    miniTitleBar('Select Datasets', right=miniTitleBarButton('done', 'Load', primary = TRUE)),
    miniContentPanel(
      DT::dataTableOutput('tbl')
    )
  )

  # server
  server <- function(input, output, session) {

    pkgs <- datasets()

    output$tbl = DT::renderDataTable(
      pkgs, server=FALSE, options = list(lengthChange = FALSE, paging=FALSE, autoWidth = TRUE)
    )

    observeEvent(input$done, {
      names <- pkgs[input$tbl_rows_selected, 2]
      packages <- pkgs[input$tbl_rows_selected, 1]
      stopApp( utils::data(list=names, package=packages )  )
    })

  }

  # run app
  runGadget(ui, server, viewer = dialogViewer("Datasets Load"))

}