R/mod_tab_two.R

In MartaGajewska/testGolemApp: An Amazing Shiny App

# Module UI
#' @title   mod_tab_twoui and mod_tab_two
#' @description  A shiny Module that ...
#'
#' @param id shiny id
#'
#' @export 
#' @importFrom shiny NS tagList 
#' @examples 
mod_tab_twoui <- function(id){
  ns <- NS(id)
  tagList(
      column(
          width = 12,
          align = "center",
          h1("Tab 2 - even more fancy than tab one")
      )
  )
}
    
# Module server
#' mod_tab_two server function
#'
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @export
#' @rdname mod_tab_twoui
    
mod_tab_two <- function(input, output, session){
  ns <- session$ns
}
    
## To be copied in the UI
# mod_tab_twoui("tab_twoui_1")
    
## To be copied in the server
# callModule(mod_tab_two, "tab_twoui_1")