將 shiny 小部件作為列 header 放入 dt::datable

Question

有沒有辦法在此處添加 shiny 小部件作為selectInput()作為數據表列 header，以使用戶將Species從那里查看他想要的相關數據。

## app.R ##
library(shiny)
library(shinydashboard)
library(DT)
Species<-unique(iris$Species)
value<-c(5,6,7)
df<-data.frame(Species,value)
ui <- dashboardPage(
  dashboardHeader(title = "My Chart"),
  dashboardSidebar(
  ),
  dashboardBody(
    
    selectInput("sel","Species",choices=unique(iris$Species),selected = unique(iris$Species)[1],multiple = F),
    dataTableOutput("table")
    
  )
)


server <- function(input, output) { 
  #Plot for Trace Explorer
  output$table<-renderDataTable(
    datatable(df)
  )
  
  
}
shinyApp(ui, server)

Answer 1

該功能內置在數據表 package 中。 您可以使用filter參數。

output$table<-renderDataTable(
    datatable(df,
              filter = "top")
  )

這將為因子變量添加 select 下拉列表，並為字符變量添加常規輸入框。