在R Shiny中过滤rhandsontable中的行

Posted 2021-04-04

我想在Shiny应用程序中显示和编辑rhandsontable。由于我的数据框相当大，我希望用户能够过滤特定行而不是显示整行1000行（参见下面的示例）。我可以基于hot为input$row子集创建一个反应值，但是只有DF[input$row,]被分配给input$hot，因此，下次我得到input$hot的值时，它返回一个只有一行的数据帧。

library(shiny)
library(rhandsontable)

ui <- shinyUI(fluidPage(
  numericInput("rows","row to filter",value = 1),
  rHandsontableOutput("hot")
))

server <- shinyServer(function(input, output, session) {

  # render handsontable output
  output$hot <- renderRHandsontable({
    if (!is.null(input$hot)) {
      DF <- hot_to_r(input$hot)
    } else {
      set.seed(42)
      DF <- data.frame(a=1:1000, b= rnorm(1000))
    }
    rhandsontable(DF) 
  })

})

runApp(list(ui=ui, server=server))

是否有一个过滤参数，我可以应用于rhandsontable()，这将允许我渲染我的数据框的过滤版本，而不实际对其进行子集化，以便链接的input$hot不会受到影响（当然，除了任何编辑由用户）？

我希望用户在文本输入框qazxsw poi中编写要过滤的行，然后相应地过滤表格。 qazxsw poi必须继续为真：

row

答案

你不能这样做，使用过滤器，但你可以缓存一行，并在事情发生变化时把数据放回去。

这是在Shiny中实现它的一种方法。比我想象的更难做到正确，我尝试了其他一些不起作用的方法，所以这对我来说也是一次学习经历。

nrow(hot_to_r(input$hot)) == 1000

我本来希望没有全局变量赋值的解决方案和纯粹的被动反应而不是观察，但我不认为这是可能的。

Update

我提出的原始版本有一个我错过的一致性错误，因为我使用的是没有数字控制增量箭头的Shiny版本。当您使用数字控件更改行时，没有使用回车键或更改焦点关闭rhandsontable library(shiny) library(rhandsontable) set.seed(1234) # Data and a couple utility functions nrow <- 1000 DF <- data.frame(a = 1:nrow,b = abs(rnorm(nrow))) lastrow <- 1 getrowfromDF <- function(idx) { return(DF[idx,]) } putrowintoDF <- function(rowdf,idx) { for (ic in 1:ncol(DF)) { DF[idx,ic] <<- rowdf[1,ic] } } u <- shinyUI(fluidPage( numericInput("row","row to filter",value = lastrow,min = 1,max = nrow(DF)), verbatimTextOutput("rowstat"), rHandsontableOutput("hot") )) s <- shinyServer(function(input,output,session) { # reactive row status rs <- reactiveValues() rs$lstrow <- rs$currow <- 1 # record changes from user editing here observeEvent(input$hot, { if (!is.null(input$hot)) { ndf <- data.frame(input$hot$data) # convert from list #putrowintoDF(ndf,rs$currow) # original - has inconsistency issue when # you change rows without closing edit # with enter key in rhandsontable grid input$hot putrowintoDF(ndf,ndf[1,1]) # new, consistent, but relies on editable data for state } }) # slide the row to the new position here observeEvent(input$row, { rs$lstrow <<- rs$currow rs$currow <<- input$row }) # render handsontable output output$hot <- renderRHandsontable({ ndf <- getrowfromDF(rs$currow) rhandsontable(ndf) }) # just for debug output$rowstat <- renderPrint({ sprintf("rowstat: cur:%d last:%d",rs$currow,rs$lstrow) }) }) shinyApp(ui = u,server = s) 中的编辑，并导致在数据框input$row中更新错误的行。

该修复程序使用input$hot中的数据来维护此状态，但这可能很危险，因为用户可以编辑它。或者这可能是一个特征......

无论如何，这是一个屏幕截图，但你真的必须使用值来看它是否有效并且没有错误：

DF

另一答案

你可以通过有条件地隐藏行来实现：input$hot