# \donttest{
if (interactive()) {
library(shiny)
library(nextGenShinyApps)
shiny::shinyApp(
ui = fluidPage(
style = "6",
header = titlePanel(left = "Sample App Title",
right = "Image/logo"),
sidebar = sidebarPanel(
title = "myApp",
"Sample sidebar content"
),
"Sample body content"
),
server = function(input, output) {}
)
}
# }
Run the code above in your browser using DataLab