tests/include_font_app/app.R

if(interactive()){
  library(shiny)
  library(shinymaterial)
  
  # Wrap shinymaterial apps in material_page
  ui <- material_page(
    include_fonts = TRUE,
    title = "Basic Page",
    tags$h1("Page Content")
  )
  
  server <- function(input, output) {
    
  }
  shinyApp(ui = ui, server = server)
}

Try the shinymaterial package in your browser

Any scripts or data that you put into this service are public.

shinymaterial documentation built on Sept. 1, 2020, 1:07 a.m.