链接闪亮的actionButton和rhandsontable

时间:2015-08-06 18:44:13

标签: r shiny

我在链接闪亮的操作按钮和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")

))

提前致谢!

0 个答案:

没有答案