我在链接闪亮的操作按钮和rhandsontable
正在显示的renderRHandsontable
表时遇到问题。单击actionButton
时,应将新行添加到表中,并且该更改应自动使用新数据重新呈现表。
我当前的代码将行添加到全局表中,但rhandsontable
不会自动重新呈现UI表。您必须手动刷新页面才能查看更改。有没有办法从闪亮的事件处理程序中触发renderRHandsontable
?
以下是基本情况:
global.R:
globalData <- new.env()
globalData$table <- data.frame(a = 1:10, b = 10:1)
server.R:
library(shiny)
library(rhandsontable)
shinyServer(function(input, output, session) {
observeEvent(input$addRow, {
newRow <- data.frame("a" = 99, "b" = 99)
globalData$table <<- rbind(globalData$table, newRow)
# need to trigger a table refresh here ?
})
output$table <- renderRHandsontable({
rhandsontable(globalData$table, rowHeaders = NULL)
})
})
ui.R:
library(shiny)
library(rhandsontable)
shinyUI(fluidPage(
rHandsontableOutput("table"),
actionButton("addRow", "Add")
))
提前致谢!