Question

我已经使用R Shiny和canada.cities数据集创建了以下应用

library(DT)
library(shiny)

ui <- basicPage(
  h2("canada.cities"),
  DT::dataTableOutput("mytable")
)

server <- function(input, output) {
  output$mytable = DT::renderDataTable({
    canada.cities[,c(1,2)]
  })
}

shinyApp(ui, server)

我想在每列下方设置一组过滤器框，以便我可以通过该列中的条目来过滤输出表中的每一列，它应该像一个搜索框并基于每列的唯一条目进行过滤。例如，countries.etc列应根据BC，AB，QC等进行过滤。我如何做到这一点。

Answer 1

以下是答案先生

library(DT)
library(shiny)

ui <- basicPage(
h2("canada.cities"),
DT::dataTableOutput("mytable")
)

server <- function(input, output) {
output$mytable = DT::renderDataTable({
(datatable(canada.cities[,c(1,2)],filter = 'top'))
  })
  }

  shinyApp(ui, server)

将文本过滤器框添加到R闪亮渲染表

1 个答案: