R/app_server.R

In lanceupton/shiny_template: PACKAGE_TITLE

#' @rdname PACKAGE_NAME
#' @keywords internal
#'
#' @param input,output,session Passed to \code{shiny}.
#' 
#' @import shiny
#' @importFrom shinymaterial material_row material_card
app_server <- function(input, output, session) {
  
  # 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 ----------------------------------------------------------
  
  
}