#' @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 ----------------------------------------------------------
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.