使用导航栏动态更新 DataTable

Question

上下文

我正在使用 Rshiny 构建一个应用程序。我创建了一个动态导航栏。现在，我想在每个导航栏的项目（tabPanel）中插入一个数据表。但我不想在导航栏中为每个项目创建一个表。所以我想知道是否可以只创建一个使用导航栏的选定项目更新自身的表？

创建动态导航栏的代码

runApp(list(
  ui = fluidPage(
    navbarPage(theme=shinytheme("paper"),title="test",
      tabPanel(uiOutput('mytabs'))
    )
  ),
  server = function(input, output, session){
    output$mytabs = renderUI({
      nTabs = length(unique(iris$Species))
      myTabs = lapply(unique(iris$Species)[1:nTabs], tabPanel)
      do.call(tabsetPanel, myTabs)
    })
  }
))

现在我想在每个导航栏的项目上显示datatable(subset(iris,Species=="value of navbar"))

有人可以解释我该怎么做吗？

Answer 1

使用问题here，您可以定义一个函数并调用它，如下所示。请注意，csv 按钮只能在浏览器中使用。

library(shiny)
library(shinythemes)

runApp(list(
   ui = fluidPage(
        navbarPage(theme=shinytheme("paper"),title="test",
           tabPanel(uiOutput('mytabs'))
     )
  ),
server = function(input, output, session){

createTabs <- function(species_r){
  tabPanel(title = paste("Data", species_r, sep=" "), 
           datatable(subset(iris,Species==species_r),rownames = FALSE,
                     extensions = 'Buttons', options = list(dom = 'Bfrtip', buttons = c('copy', 'csv',I('colvis'))))
           )
}

output$mytabs = renderUI({
  nTabs = length(unique(iris$Species))
  myTabs = lapply(unique(iris$Species)[1:nTabs], createTabs)
  do.call(tabsetPanel, myTabs)
  })
 }
))