Skip to content

Instantly share code, notes, and snippets.

@mgei
Created June 22, 2020 13:28
Show Gist options
  • Save mgei/480de78885b5fba5fe1187d6beecd6a8 to your computer and use it in GitHub Desktop.
Save mgei/480de78885b5fba5fe1187d6beecd6a8 to your computer and use it in GitHub Desktop.
library(shiny)
ui <- fluidPage(
fluidRow(
column(width = 12,
tabsetPanel(
tabItem("main", "MENU"),
tabItem("more", uiOutput("hello"))
))
)
)
server <- function(input, output, session) {
output$hello <- renderUI({
list(
tabsetPanel(
tabItem("main", "MENU"),
tabItem("more", "ok")
)
)
})
}
shinyApp(ui, server)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment