R/shiny_about_modal.R

In xaviermiles/portalLite: Generic shiny app configurable through JSON files.

about_ui <- function(id) {
  ns <- NS(id)
  actionButton(ns("show"), "About")
}

about_ui_mobile <- function(id) {
  ns <- NS(id)
  actionButton(ns("show"), "About")
}

about_dialog_server <- function(input, output, session, about_modal_vars) {
  aboutModal <- function(failed = FALSE, failedUnique = FALSE) {
    print(getwd())
    ns <- session$ns
    modalDialog(
      size = "l",
      easyClose = TRUE,
      span(h3(strong(paste(about_modal_vars$title, 'data portal')))),
      p(paste("Last updated:", about_modal_vars$most_recent_update_date)),
      about_modal_vars$about_modal_html,
      footer = tagList(
          modalButton("Close")
      )
    )
  }

  observeEvent(input$show, {
    showModal(aboutModal())
  })

  observeEvent(input$ok, {
    okay <- TRUE
    if (okay) {
      removeModal()
    } else if (isUnique) {
      showModal(dataModal(failedUnique = TRUE))
    } else {
      showModal(dataModal(failed = TRUE))
    }
  })
}