tests/no_nav.R

if(interactive()){
  library(shiny)
  library(shinymaterial)
  
  # Wrap shinymaterial apps in material_page
  ui <- material_page(
    title = "Basic Page", 
    include_nav_bar = FALSE,
    tags$div("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.