replaceData() 使表显示“找不到匹配的记录”。过滤表格

大佬教程收集整理的这篇文章主要介绍了replaceData() 使表显示“找不到匹配的记录”。过滤表格，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决replaceData() 使表显示“找不到匹配的记录”。过滤表格？

我有一个应用程序，我想在其中绑定新列。目的是选择哪一列并使用添加按钮绑定它。但是，出于某种原因，当我使用添加按钮时，它显示“找不到匹配的记录 “。我不明白为什么。

请在下面找到可复制的代码：

library(shiny)

Alpha = c("a","b","c","d")
numbers = c(1,2,3,4)
extra=c("as","qw","er","he")


hi<-data.frame(Alpha,numbers,extra)


ui <- fluIDPage(
  DTOutput('table'),verbatimtextoutput('out6'),selectinput('in6','Options',colnames(hi),multiple=FALSE,selectize=TRUE),actionbutton("add","add column")
)

server <- function(input,output,session) {
  
  
  output$table = renderDT(hi,selection = 'single',editable = TRUE)
  
  
  proxy = datatableProxy('table')
  
  observeEvent(input$add,{
    hi2 <- hi%>%
      select(Alpha)
    hi<<-cbind(hi,hi2)
    replaceData(proxy,hi,resetPaging = FALSE)})

  output$out6 <- renderPrint(input$in6)
  
}

shinyApp(ui,server)

解决方法

Alpha = c("a","b","c","d")
numbers = c(1,2,3,4)
extra=c("as","qw","er","he")

hi<-data.frame(Alpha,numbers,extra)

ui <- fluidPage(
  DTOutput('Table'),verbatimTextOutput('out6'),selectInput('in6','Options',colnames(hi),multiple=FALSE,selectize=TRUE),actionButton("add","add column")
)

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

  rv <- reactiveValues(data=hi)

  output$Table = renderDT(rv$data,selection = 'single',editable = TRUE)

  observeEvent(input$add,{
    hi2 <- hi %>% select(input$in6)
    rv$data <- cbind(rv$data,hi2)
  })
  
  observeEvent(input$Table_cell_edit,{
    info = input$Table_cell_edit
    str(info)
    i = info$row
    j = info$col
    v = info$value
    
    rv$data[i,j] <<- (DT::coerceValue(v,rv$data[i,j]))
  })


  output$out6 <- renderPrint(input$in6)

}

shinyApp(ui,server)

大佬总结

以上是大佬教程为你收集整理的replaceData() 使表显示“找不到匹配的记录”。过滤表格全部内容，希望文章能够帮你解决replaceData() 使表显示“找不到匹配的记录”。过滤表格所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。