Create shinydashboard tabPanels based on a dataframe column

user_9198260 0
Viewed 84

Below I display 2 attempts.I have a shiny dashboard with tabPanels. I would like to create the tabPanels of the tabPanel Data automatically based on the Uni dataframe. In my first try below those tabPanels are commented out inorder to make clear what I mean.

  Uni<-data.frame(NAME=c("A","B","C"))

# app.R ##
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)

dbHeader <- dashboardHeaderPlus(

  title = "Tabs"
)

ui <- dashboardPagePlus(
  dbHeader,
  dashboardSidebar(),
  dashboardBody(
    useShinyjs(),
    tags$hr(),
    tabsetPanel(
      id ="tabA",
      type = "tabs",
      tabPanel("Front",icon = icon("accusoft")),
      tabPanel("Data", icon = icon("table"),
               tabsetPanel(
                 id ="tabA",
                 type = "tabs",
                 for(i in 1:nrow(Uni)){
                   tabPanel(
                     paste0(Uni[i,1])
                     ,icon = icon("table"))
                 }
                 #tabPanel("A",icon = icon("table")),
                 #tabPanel("B", icon = icon("table")),
                 #tabPanel("C", icon = icon("table"))

               )

      )
    )
  )

)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

and my 2nd attempt:

# app.R ##
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)

dbHeader <- dashboardHeaderPlus(

  title = "Tabs"
)

ui <- dashboardPagePlus(
  dbHeader,
  dashboardSidebar(),
  dashboardBody(
    useShinyjs(),
    tags$hr(),
    tabsetPanel(
      id ="tabA",
      type = "tabs",
      tabPanel("Front",icon = icon("accusoft")),
      tabPanel("Data", icon = icon("table"),
               tags$hr(),
               tabsetPanel(
                 id ="tabA",
                 type = "tabs",
                 uiOutput("panels")

                 #tabPanel("A",icon = icon("table")),
                 #tabPanel("B", icon = icon("table")),
                 #tabPanel("C", icon = icon("table"))

               )

      )
    )
  )

)

server <- function(input, output) {
  output$panels <- renderUI({
    pan = lapply(1:length(Uni), function(i) 
      tabPanel(Uni[i,1],icon = icon("table")))
    do.call(tabBox,pan)
  })
}

shinyApp(ui = ui, server = server)
shiny r
1 Answers

You have to write the entire tabSetPanel in a do.call statement. tabSetPanels never listen to a list of objects.

Uni<-data.frame(NAME=c("A","B","C"))

# app.R ##
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)

dbHeader <- dashboardHeaderPlus(

  title = "Tabs"
)

ui <- dashboardPagePlus(
  dbHeader,
  dashboardSidebar(),
  dashboardBody(
    useShinyjs(),
    tags$hr(),
    tabsetPanel(
      id ="tabA",
      type = "tabs",
      tabPanel("Front",icon = icon("accusoft")),
      tabPanel("Data", icon = icon("table"),
               do.call(tabsetPanel, 
                       c(id='tabA', 
                         type="tabs",
                         lapply(1:nrow(Uni), function(i) {
                           tabPanel(Uni[i,],icon = icon("table"))
                         }))
                       )
               )
      )
    )
  )

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)
user_94228710
Related