r - 按值而不是显示的标签过滤数据表

Question

（玩具）闪亮应用程序显示此数据表（下面的代码）。

的值为var, -1, 0（1因此可以对表格进行排序），但为了美观，会显示标签 ( negative, zero, )。positive

但是，我需要使用数值而不是搜索栏中的标签。你能帮助我吗 ？

注意：我知道在搜索栏中使用值而不是标签可能看起来违反直觉，但在实际应用中它确实有意义。

---

library(shiny)

ui <- shinyUI(fluidPage(
  mainPanel(
    DT::dataTableOutput("my_table")
  )
))

server <- function(input, output) {
  
  output$my_table <- DT::renderDataTable({
    data.frame(
      var = factor(
        x      = c(-1, 0, 1),
        levels = c(-1, 0, 1),
        labels = c("negative", "zero", "positive")))
  }, rownames = FALSE)
  
}

shinyApp(ui = ui, server = server)

标签： rdatatable