Question

我正在使用sqlSave（）将数据保存到数据库中。保存成功后，我想以某种方式触发事件，以便前端UI可以更新显示数据库中总行数的显示。

在Server.R中，我有：

#ui showing database info
output$dbstatus <- renderUI({
HTML(displayDBStatus()) #reads from database and builds ui.
})

#saves data to db:
observeEvent(input$saveButton, {
mySaveFunc() #writes to db using sqlSave
})

如果sqlSave成功完成后如何刷新output$dbstatus？如何从成功的保存操作创建事件，以便我可以构建一个反应函数？谢谢。

Answer 1

正如我所看到的，对于你写的内容，没有理由拥有renderUI，因为它内部的表达式不依赖于任何输入。将输入依赖项放在其上并在其中调用mySaveFunc()：

 output$dbstatus <- renderUI({
    #trigger the event when the button is pressed
    input$saveButton
    #save the values on the db
    mySaveFunc()
    #display the element
    HTML(displayDBStatus()) #reads from database and builds ui.
 })

通过这种方式，您不需要observeEvent部分。

R Shiny检测已保存的数据事件

1 个答案: