如何在数据表中使用过滤器

Question

我有这个闪亮的代码示例：

library(shiny)
library(DT)

x = read.xlsx("my_path\\2.xlsx") #my file I want to use
shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,
             DTOutput('table')
      )
    )
  ),
  
  
  server = function(input, output) {
    output$table <- renderDT(iris,
                             filter = "top",
                             options = list(
                               pageLength = 5
                             )
    )
  }
)

当我单击某个过滤器时，我会得到所有可能值的列表：

但是当我使用我的文件 (x) 而不是 iris 时 - 它不起作用并且列表无法打开 知道如何修复它吗？

Answer 1

对您想要使其可搜索的列尝试类似的操作：

x$column <- as.factor(x$column)

Iris 数据集中的 Species 列是一个因素；当使用字符列时，DT 将允许您输入可能的值。