He estado trabajando con esta publicación como punto de partida. @ Actualice handsontable editando la tabla y / o eventReactive

Muy útil, pero estoy tratando de extenderlo para especificar el número de valores en la tabla, luego actualizar un gráfico basado en los valores de la tabla después de la edición.

Esto es lo que tengo hasta ahora.

library(shiny)
library(rhandsontable)
library(colorSpec)

ui <- fluidPage(
  numericInput("x", "number of values", 2),
  rHandsontableOutput('table'),
  textOutput('result'),
  plotOutput('plot'),
  actionButton("recalc", "generate new random vals and calculate")
)


server <- function(input,output,session)({
  values <- reactiveValues(data=as.data.frame(runif(input$x)))

  observe({
    input$recalc
    values$data <- as.data.frame(runif(input$x))
  })

  observe({
    if(!is.null(input$table))
      values$data <- hot_to_r(input$table)
  })


  output$table <- renderRHandsontable({
    rhandsontable(values$data)
  })


  output$result <- renderText({
    sum(values$data)
  })

  output$plot <- reactivePlot({
    barplot(values$data)
  })

})

shinyApp(ui = ui, server = server)

Recibo un error en lareactiveValues line porque estoy tratando de usarinput$x. La publicación anterior tenía un valor codificado de 2.