# \donttest{
if (interactive()) {
library(shiny)
library(nextGenShinyApps)
tab2 <- tabPanel("Summary", "SAMPLE nunc.")
tab3 <- tabPanel("Tab 3", "aoreet sit amet.")
tab4 <- tabPanel("Tab 4", "Vulputate pulvinar")
shiny::shinyApp(
ui = fluidPage(
style = "8",
custom.bg.color = "rgb(110,134,032)",
sidebar = NULL,
header = NULL,
tabsetPanel(
tab2,
tab3,
type = "pills",
justified = TRUE
)
),
server = function(input, output) {
}
)
}
# }
Run the code above in your browser using DataLab