在 shiny 中编辑 rhandsontable

Question

I trying to update my rhansontable based on values from a and b. But its not getting updated. Basially, column c should be column a divided column b

library(shiny)
library(rhandsontable)

did_recalc <- FALSE

ui <- fluidPage(
  # tableOutput(table1),
  rHandsontableOutput('table'),
  textOutput('result')
)

server <- function(input,output,session)({
  # values <- reactiveValues(data=as.data.frame(runif(2)))
  INR = c(0)
  `Price` = c(0)
  Total = as.numeric(INR / `Price`)
  
  values <- data.frame(a = INR, b = `Price`, c = Total)
  
  observe({
    if(!is.null(input$table))
      values <- hot_to_r(input$table)
  })
  
  
  
  output$table <- renderRHandsontable({
    rhandsontable(values)
  })
  
}) 

shinyApp(ui = ui, server = server)

Answer 1

You need to make sure that the object holding the data ( values ) is reactive. This will force anything using it to update properly.

library(shiny)
library(rhandsontable)
library(dplyr)

ui <- fluidPage(
    rHandsontableOutput('table')
)

server <- function(input,output,session)({
    
    values <- reactiveVal(value = data.frame(INR = runif(2), 
                                             Price = runif(2)))
    
    output$table <- renderRHandsontable({
        values() %>% 
            mutate(Total = INR/Price) %>% 
            rhandsontable() %>% 
            hot_col("Total", readOnly = TRUE)
    })
    
    observe({
        if(!is.null(input$table))
            values(hot_to_r(input$table))
    })
    
}) 

shinyApp(ui = ui, server = server)