# \donttest{
if (interactive()) {
library(shiny)
library(nextGenShinyApps)
shiny::shinyApp(
ui = fluidPage(
style = "7",
header = NULL,
sidebar = sidebarPanel(
title = "myApp",
"Sample sidebar contents",
footer = FALSE
),
"Plain content"
),
server = function(input, output) {}
)
}
# }
Run the code above in your browser using DataLab