r - rHandsontable オブジェクト (hot_to_r) での更新された出力の不適切なレンダリング

Question

更新されたデータ出力に関する問題を発見しました。スクリプトは次のとおりです。

library(shiny)
library(shinyapps)
library(rhandsontable)

## CLIENT SIDE
ui <- shinyUI(pageWithSidebar(
headerPanel("Test of rHandsontable output - hot_to_r function"),
sidebarPanel(
actionButton("goButton", "test rhandsontable")

),
mainPanel(
  rHandsontableOutput("all_updates")
  ,verbatimTextOutput('df_output')
 )

)))

## SERVER SIDE
server <- shinyServer(function(input, output) {

observeEvent(input$goButton,{
df <- data.frame ( x=1:10
                 ,y=1:10
                 ,z=factor(c("X","P"))
                 ,merge_xy="merger"
                )
df[,4] <- paste(df[,1],"+",df[,2])
output$all_updates <- renderRHandsontable({

rhandsontable(df, selectCallback = TRUE, height = 300) %>%
hot_table(highlightCol = TRUE, highlightRow = TRUE) %>%
hot_rows(rowHeights = 18)
})

})

observeEvent(input$all_updates,{

zzz <- hot_to_r(input$all_updates)
zzz[,4] <- paste(zzz[,1],'+',zzz[,2],'+',zzz[,3]) 
#the output of the modified dataframe
print(zzz)

output$all_updates <-renderRHandsontable({

  rhandsontable(zzz, selectCallback = TRUE, height = 300) %>%
    hot_table(highlightCol = TRUE, highlightRow = TRUE) %>%
    hot_rows(rowHeights = 18)

})

print(hot_to_r(input$all_updates))

output$df_output <- renderPrint(
print(hot_to_r(input$all_updates))
)

})

output$all_updates <- renderRHandsontable({
df <- data.frame ( x=integer(10)
                 ,y=integer(10)
                 ,z=factor(c("X","P"))
               ,merge_xy="merger"
                )

rhandsontable(df, selectCallback = TRUE, height = 300) %>%
hot_table(highlightCol = TRUE, highlightRow = TRUE) %>%
hot_rows(rowHeights = 18)
})
})

shinyApp(ui=ui,server=server)

問題は、関数 'hot_to_r' が rHandsontable から 1 ステップの遅延でデータセットを返すことです。

列 Z への変更を試すことができます。

列の変更後、テーブルの出力はすぐに更新されますが、「hot_to_r」関数の出力は、テーブルの以前のバージョンのスナップショットを生成します (最新の変更なし)。