Shiny - Edición de tablas rhandsontable con múltiples elementos de entrada y salida
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.