inst/app/module_template.R

In lanceupton/shiny_template: PACKAGE_TITLE

#' MODULE_TITLE
#'
#' MODULE_DESCRIPTION
#'
#' @name MODULE_NAME
#' @keywords internal
#'
#' @param id A unique namespace id.
#' @param input,output,session Passed to \code{shiny}
NULL


#' @rdname MODULE_NAME
#' @keywords internal
#' @importFrom shiny NS uiOutput
#' @export
MODULE_NAME_ui <- function(id) {
  ns <- NS(id)
  uiOutput(ns("ui"))
}


#' @rdname MODULE_NAME
#' @keywords internal
#' 
#' @param ... ...
#' 
#' @import shiny
#' @importFrom shinymaterial material_row material_card
#' @export
MODULE_NAME_server <- function(input, output, session) {
  ns <- session$ns
  
  # UI ----------------------------------------------------------------------
  
  output$ui <- renderUI({
    tagList(
      material_row(uiOutput("ui_nice"))
    )
  })
  
  output$ui_nice <- renderUI({
    col_6(offset = 3, material_card("Nice!"))
  })
  
  # DATA --------------------------------------------------------------------
  
  
  # SIDE EFFECTS ------------------------------------------------------------
  
  
  # EVENT HANDLERS ----------------------------------------------------------
  
  
}