R/02-dbContent.R

In Pandora-IsoMemo/resources: Food Reconstruction Using Isotopic Transferred Signals

dbContentButton <- function(id, table) {
  ns <- NS(id)

  actionButton(ns("popup"), tableLabels(table))
}


dbContent <- function(input, output, session, table) {
  observeEvent(input$popup, {
    showModal(dbContentDialog(id = table, ns = session$ns))
  })

  data <- reactive({
    getDbContent(table)
  })

  output$table <- renderDT(data())

  callModule(exportData, "export", data = reactive(function() {
    getDbContent(table)
  }))
}

dbContentSelectUI <- function(id, label) {
  ns <- NS(id)
  
  tagList(
    selectizeInput(ns("popup"), label = label,
                choices = list("Feeding experiments" = "feeding",
                               "Suess effect" = "suess",
                               "Diet-to-consumer parameters" = "diet",
                               "Digestibility" = "digest"),
                options = list(
                  placeholder = 'Please select a table',
                  onInitialize = I('function() { this.setValue(""); }')
                ))
  )
}

dbContentSelect <- function(input, output, session) {
  observeEvent(input$popup, {
    req(input$popup)
    showModal(dbContentDialog(id = input$popup, ns = session$ns))
  })
  
  data <- reactive({
    getDbContent(input$popup)
  })
  
  output$table <- renderDT(data())
  
  callModule(exportData, "export", data = reactive(function() {
    getDbContent(input$popup)
  }))
}

getDbContent <- function(table) {
  openxlsx::read.xlsx(system.file("lives.xlsx", package = "ReSources"))
}

dbContentDialog <- function(id, ns) {
  modalDialog(
    title = tableLabels(id),
    easyClose = TRUE,
    size = "l",
    footer = modalButton("OK"),
    div(
      style = "overflow-x: auto; padding: 10px 0;",
      DTOutput(ns("table"))
    ),
    exportDataUI(ns("export"), "Export Data")
  )
}

tableLabels <- function(id) {
  switch(id,
    feeding = "Feeding experiments",
    suess = "Suess effect",
    diet = "Diet-to-consumer parameters",
    digest = "Digestibility",
    cat("Table ", id, "not found")
  )
}