if (interactive()) {
ui <- shiny::fluidPage(
shinyGovstyle::header(
main_text = "Example",
secondary_text = "User Examples",
logo = "shinyGovstyle/images/moj_logo.png"
),
shiny::column(
width = 3,
id = "nav",
shiny::tags$div(
shiny::tags$h2("Contents"),
subcontents_links(
c("radio_button_Input (inline)", "button_Input"),
c(NA, NA)
),
subcontents_links(
c("date_Input", "button_Input"),
c(NA, "button_input_text_types")
)
)
)
)
server <- function(input, output, session) {
}
shiny::shinyApp(ui = ui, server = server)
}
Run the code above in your browser using DataLab