r - 光沢のある R スタジオのアクション ボタンを使用して、rhandsontable オブジェクトの欠損値を埋める

Question

次のコードがあります。次のように値を計算する関係を考えると、「実行」ボタンがクリックされたら、rhandsontable オブジェクトの欠損値を太字の数字 (または赤色の場合もあります) で埋めたいと考えています。

datacopy[16, "wt"]= datacopy[16, "mpg"] + datacopy[16, "cyl"]

したがって、出力テーブルは欠損値のない rhandsontable になります (欠損値は置き換えられます)。誰も私がこれを行う方法を知っていますか? どうもありがとうございます。:)

library(shiny)
library(datasets)
library(rhandsontable)

ui=fluidPage(

br(), br(), actionButton("update", "go", class="success"), br(), br(),  
rHandsontableOutput("table1")
)


server=function(input, output, session) {

mt=reactive({

datacopy= data.table(mtcars)
datacopy[16, "wt"] <- NA
datacopy

})

output$table1=renderRHandsontable({
rhandsontable(mt())
})

}

shinyApp(ui,server)