在筛选表格中，闪亮的reactable行索引是错误的。

huangapple
go评论160阅读模式
英文:

shiny reactable index of rows in filtered table are wrong

问题

我已经使用了一个带有选择行选项的reactable。但是在过滤reactable之后，通过getReactableState("table", "selected")获取的行号（或者说值）是错误的。我犯了什么错误？
在未过滤数据的情况下点击一行时，行号是正确的。但是在过滤后，我得到了错误的值。如何获取过滤表格的正确索引？

  1. library(shiny)
  2. library(reactable)
  4. data <- MASS::Cars93[, 1:7]
  6. ui <- fluidPage(
  7.   actionButton("select_btn", "Select rows"),
  8.   selectInput("filter_type", "Filter type", unique(data$Type), multiple = TRUE),
  9.   textInput("row", label = "Selected"),
  10.   reactableOutput("table")
  11. )
  13. server <- function(session, input, output) {
  14.   selected <- reactive(getReactableState("table", "selected"))
  15.   
  16.   output$table <- renderReactable({
  17.     reactable(
  18.       data,
  19.       filterable = TRUE,
  20.       searchable = TRUE,
  21.       selection = "single",
  22.     )
  23.   })
  24.   
  25.   observeEvent(input$select_btn, {
  26.     # Select rows
  27.     updateReactable("table", selected = c(1, 3, 5))
  28.   })
  30.   observe({
  31.     # Filter data
  32.     filtered <- if (length(input$filter_type) > 0) {
  33.       data[data$Type %in% input$filter_type, ]
  34.     } else {
  35.       data
  36.     }
  37.     updateReactable("table", data = filtered)
  38.   })
  39.   
  40.   observe({
  41.     updateTextInput(session, "row",  value = data$Model[selected()])
  42.   })
  43.   
  44.   
  45. }
  47. shinyApp(ui, server)
英文:

I have used a reactable with the option for select rows. But after filtering the reactable the row-numbers (respective the values) get from getReactableState("table", "selected") are wrong. Where is my mistake?
By clicking on a row with unfiltered data, the row-numbers are correct. After filtering I get wrong values. How can I get the correct indexes of a filtered table?

  1. library(shiny)
  2. library(reactable)
  4. data &lt;- MASS::Cars93[, 1:7]
  6. ui &lt;- fluidPage(
  7.   actionButton(&quot;select_btn&quot;, &quot;Select rows&quot;),
  8.   selectInput(&quot;filter_type&quot;, &quot;Filter type&quot;, unique(data$Type), multiple = TRUE),
  9.   textInput(&quot;row&quot;, label = &quot;Selected&quot;),
  10.   reactableOutput(&quot;table&quot;)
  11. )
  13. server &lt;- function(session, input, output) {
  14.   selected &lt;- reactive(getReactableState(&quot;table&quot;, &quot;selected&quot;))
  15.   
  16.   output$table &lt;- renderReactable({
  17.     reactable(
  18.       data,
  19.       filterable = TRUE,
  20.       searchable = TRUE,
  21.       selection = &quot;single&quot;,
  22.     )
  23.   })
  24.   
  25.   observeEvent(input$select_btn, {
  26.     # Select rows
  27.     updateReactable(&quot;table&quot;, selected = c(1, 3, 5))
  28.   })
  30.   observe({
  31.     # Filter data
  32.     filtered &lt;- if (length(input$filter_type) &gt; 0) {
  33.       data[data$Type %in% input$filter_type, ]
  34.     } else {
  35.       data
  36.     }
  37.     updateReactable(&quot;table&quot;, data = filtered)
  38.   })
  39.   
  40.   observe({
  41.     updateTextInput(session, &quot;row&quot;,  value = data$Model[selected()])
  42.   })
  43.   
  44.   
  45. }
  47. shinyApp(ui, server)

答案1

得分: 1

一种可能性是：将筛选后的数据放在reactive()函数中，并使用data_filtered()更新文本输入。类似地，您可以继续处理所选的值。

  1. library(shiny)
  2. library(reactable)
  4. data <- MASS::Cars93[, 1:7]
  6. ui <- fluidPage(
  7.     actionButton("select_btn", "Select rows"),
  8.     selectInput("filter_type", "Filter type", unique(data$Type), multiple = TRUE),
  9.     textInput("row", label = "Selected"),
  10.     reactableOutput("table")
  11. )
  13. server <- function(session, input, output) {
  14.     rv <- reactiveValues(data = data)
  15.     
  16.     data_filtered <- reactive({
  17.         if (length(input$filter_type) > 0) {
  18.             rv$data[rv$data$Type %in% input$filter_type,]
  19.         } else {
  20.             rv$data
  21.         }
  22.     })
  23.     
  24.     selected <- reactiveValues(j = 0)
  25.     
  26.     currentSelected <- reactive(getReactableState("table", "selected"))
  27.     
  28.     observeEvent(currentSelected(), priority = 0, {
  29.         selected$j <- currentSelected()
  30.     })
  31.     
  32.     output$table <- renderReactable({
  33.         reactable(
  34.             data_filtered(),
  35.             filterable = TRUE,
  36.             searchable = TRUE,
  37.             selection = "single",
  38.         )
  39.     })
  40.     
  41.     observeEvent(input$select_btn, {
  42.         # Select rows
  43.         updateReactable("table", selected = c(1, 3, 5))
  44.     })
  45.     
  46.     observe({
  47.         if (is.null(getReactableState("table", "selected"))) {
  48.             updateTextInput(session, "row", value = "")
  49.         } else {
  50.             updateTextInput(session, "row", value = data_filtered()$Model[selected$j])
  51.         }
  52.     })
  53.     
  54. }
  56. shinyApp(ui, server)

在筛选表格中，闪亮的reactable行索引是错误的。

英文:

One possibility: Put your filtered data inside a reactive() and update the text input using data_filtered(). Similarly you can go on with the selected values.

在筛选表格中，闪亮的reactable行索引是错误的。

  1. library(shiny)
  2. library(reactable)
  4. data &lt;- MASS::Cars93[, 1:7]
  6. ui &lt;- fluidPage(
  7.     actionButton(&quot;select_btn&quot;, &quot;Select rows&quot;),
  8.     selectInput(&quot;filter_type&quot;, &quot;Filter type&quot;, unique(data$Type), multiple = TRUE),
  9.     textInput(&quot;row&quot;, label = &quot;Selected&quot;),
  10.     reactableOutput(&quot;table&quot;)
  11. )
  13. server &lt;- function(session, input, output) {
  14.     rv &lt;- reactiveValues(data = data)
  15.     
  16.     data_filtered &lt;- reactive({
  17.         if (length(input$filter_type) &gt; 0) {
  18.             rv$data[rv$data$Type %in% input$filter_type,]
  19.         } else {
  20.             rv$data
  21.         }
  22.     })
  23.     
  24.     selected &lt;- reactiveValues(j = 0)
  25.     
  26.     currentSelected &lt;-
  27.         reactive(getReactableState(&quot;table&quot;, &quot;selected&quot;))
  28.     
  29.     observeEvent(currentSelected(), priority = 0, {
  30.         selected$j &lt;- currentSelected()
  31.     })
  32.     
  33.     output$table &lt;- renderReactable({
  34.         reactable(
  35.             data_filtered(),
  36.             filterable = TRUE,
  37.             searchable = TRUE,
  38.             selection = &quot;single&quot;,
  39.         )
  40.     })
  41.     
  42.     observeEvent(input$select_btn, {
  43.         # Select rows
  44.         updateReactable(&quot;table&quot;, selected = c(1, 3, 5))
  45.     })
  46.     
  47.     observe({
  48.         if (is.null(getReactableState(&quot;table&quot;, &quot;selected&quot;))) {
  49.             updateTextInput(session, &quot;row&quot;, value = &quot;&quot;)
  50.         } else {
  51.             updateTextInput(session, &quot;row&quot;, value = data_filtered()$Model[selected$j])
  52.         }
  53.     })
  54.     
  55. }
  57. shinyApp(ui, server)

huangapple
  • 本文由 发表于 2023年8月9日 01:51:10
  • 转载请务必保留本文链接：https://go.coder-hub.com/76862055.html
  • r
  • reactable
  • shiny
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定