Question

我正在编写一个闪亮的应用程序，它有一个表（使用DT::renderDataTable），用户可以从中选择一行。但我希望用户也能够添加新行，如果他们想要的东西不在表中。我正在使用输入控件让用户输入新数据，我有一个操作按钮，如果按下该按钮，应该从输入值在表格中创建一个新的数据行。但是按下按钮不会更新表格。

一个最小的例子：

library(shiny)
library(DT)
mydata = data.frame(id=letters[1:5], val=sample(10,5,T))

ui = fluidPage(dataTableOutput("table"),
               textInput('NewID', 'Enter new ID'),
               numericInput('NewVal', 'Enter new val', 1),
               actionButton("goButton", "Update Table"))

server = function(input,output){
  output$table = renderDataTable(mydata)
  update = eventReactive(input$goButton, {
    newrow = data.frame(id = input$NewID, val = input$NewVal)
    mydata = rbind(mydata, newrow)
  })
}

shinyApp(ui,server)

显然，这是解决这个问题的错误方法。我尝试了包裹renderDataTable和代码的各种组合来更新mydata，renderUI和observe内的reactive，但我找不到正确的方法。

这是我的第一个闪亮的应用程序，所以也许有一个我不太了解的基本概念。什么是正确的方法？

Answer 1

您可以渲染eventReactive的结果，返回更新的数据集。不要忘记使用<<-来修改全局数据集：

server = function(input,output){
  output$table <- renderDataTable( df())
  df <- eventReactive(input$goButton, {
    if(input$NewID!="" && !is.null(input$NewVal) && input$goButton>0){
      newrow = data.table(id = input$NewID,
                        val = input$NewVal)
      mydata <<- rbind(mydata, newrow)
      }
    mydata
  }, ignoreNULL = FALSE)
}

Answer 2

您应该使用DT软件包中的replaceData()函数。示例：

...
  dataTableOutput("OPreview"),
  actionButton("BRefresh","Refresh"),
...

in server part(assuming ds is a dataset to show):

output$OPreview<-renderDataTable({ ds })

onclick("BRefresh",{
  proxy=dataTableProxy("OPreview")
  replaceData(proxy,ds)
})

在Shiny中，使用来自用户输入的新值更新DataTable

2 个答案: