R/mod_about.R

In ColinFay/hexmake: Hex Stickers Maker

# Module UI

#' @title   mod_about_ui and mod_about_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_about
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList tags  fluidRow actionButton
#' @importFrom whereami cat_where whereami
mod_about_ui <- function(id){
  ns <- NS(id)
  tagList(
    tags$details(
      summary("About"), 
      tags$div(
        class = "innerrounded rounded",
        align = "center",
        fluidRow(
          col_6(
            actionButton(
              ns("showhowto"), 
              "How to use this app", 
              class = "modbutton"
            )
          ), 
          col_6(
            actionButton(
              ns("showmod"), 
              "About this app", 
              class = "modbutton"
            )
          )
        )
      )
    )
    
  )
}

# Module Server

#' @rdname mod_about
#' @export
#' @keywords internal
#' @importFrom whereami cat_where whereami
#' @importFrom shiny modalDialog includeMarkdown tagList actionButton observeEvent showModal
mod_about_server <- function(input, output, session){
  ns <- session$ns
  
  howtomodal <- function(failed = FALSE) {
    modalDialog(
      includeMarkdown(
        system.file(
          "app/howto.md", 
          package = "hexmake" 
        )
      )
      ,footer = tagList(
        actionButton(ns("ok"), "OK")
      )
    )
  }
  
  observeEvent(input$showhowto, {
    whereami::cat_where(whereami::whereami())
    showModal(howtomodal())
  })
  
  aboutmodal <- function(failed = FALSE) {
    modalDialog(
      includeMarkdown(
        system.file(
          "app/about.md", 
          package = "hexmake" 
        )
      )
      ,footer = tagList(
        actionButton(ns("ok"), "OK")
      )
    )
  }
  
  observeEvent(input$showmod, {
    whereami::cat_where(whereami::whereami())
    showModal(aboutmodal())
  })
  
  observeEvent( input$ok , {
    whereami::cat_where(whereami::whereami())
    removeModal()
  })
  
}