Eu tenho trabalhado com este post como ponto de partida.Atualizar handsontable editando tabela e / ou eventReactive

Muito útil, mas estou tentando estendê-lo para especificar o número de valores na tabela e atualizar um gráfico com base nos valores da tabela após a edição.

Aqui está o que eu tenho até agora.

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)

Eu recebo um erro noreactiveValues linha porque estou tentando usarinput$x. A postagem anterior tinha um valor codificado de 2.