それが使用するように、shinysky
パッケージを調べてください。これには、データテーブルを に変換できる機能がHandsontable
あります。以下は、私が何を意味するかを示す最小限の例ですhot.to.df
dataframe
rm(list = ls())
library(shiny)
library(shinysky)
server <- shinyServer(function(input, output, session) {
# Initiate your table
previous <- reactive({head(mtcars)})
Trigger_orders <- reactive({
if(is.null(input$hotable1)){return(previous())}
else if(!identical(previous(),input$hotable1)){
# hot.to.df function will convert your updated table into the dataframe
as.data.frame(hot.to.df(input$hotable1))
}
})
output$hotable1 <- renderHotable({Trigger_orders()}, readOnly = F)
# You can see the changes you made
output$tbl = DT::renderDataTable(Trigger_orders())
})
ui <- basicPage(mainPanel(column(6,hotable("hotable1")),column(6,DT::dataTableOutput('tbl'))))
shinyApp(ui, server)