R/mod_release_notes.R

Defines functions mod_release_notes_server mod_release_notes_ui

Documented in mod_release_notes_server mod_release_notes_ui

# Module UI
  
#' @title   mod_release_notes_ui and mod_release_notes_server
#' @description  A shiny Module.
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_release_notes
#'
#' @keywords internal
#' @export 
#' @importFrom shiny NS tagList 
#' @importFrom shinyBS bsCollapse bsCollapsePanel
mod_release_notes_ui <- function(id){
  ns <- NS(id)
  
  tagList(
    shinyBS::bsCollapse(id = "collapseFormerReleases",
                        open = "Current release",
                        multiple = TRUE,
                        shinyBS::bsCollapsePanel("Current release", 
                                                 mod_insert_md_ui(ns("versionNotes_MD")),style = "info"),
                        shinyBS::bsCollapsePanel("Former releases", 
                                                 mod_insert_md_ui(ns("formerReleases_MD")),style = "info")
    )
  )
}
    
# Module Server
    
#' @rdname mod_release_notes
#' @export
#' @keywords internal
    
mod_release_notes_server <- function(id){
  
  moduleServer(id, function(input, output, session){
    ns <- session$ns
    mod_insert_md_server("versionNotes_MD",URL_versionNotes)
    mod_insert_md_server("formerReleases_MD",URL_formerReleases)
    
  })
  
  
}
    
## To be copied in the UI
# mod_release_notes_ui("release_notes_ui_1")
    
## To be copied in the server
# callModule(mod_release_notes_server, "release_notes_ui_1")
 
samWieczorek/Prostar2 documentation built on Jan. 18, 2021, 11:42 p.m.