Hi Michael,
Thank you for the video. It clearly shows what you are experiencing.
I'm still guessing this is a race case situation in how rhandsontable is implemented to work with shiny and shinyapps.io has a naturally built in delay between the UI information and the Server information. You are also entering the information quickly enough to be caught by the race case.
Don't want to leave you high and dry, so I've made a small shiny app that allows you to enter numeric values (one per line) and it will convert it to a histogram on the right.
Not as fancy, but it gets the job done.
Best,
Barret
library(ggplot2)
library(shiny)
shinyApp(
fluidPage(
fluidRow(
column(
4,
textAreaInput(
"textArea", "Enter data:",
width = "100%", height = "500px",
value = paste0(sample(1:10, 10, replace = TRUE), collapse = "\n")
)
),
column(
8,
plotOutput("plot", height = "600px")
)
)
),
function(input, output) {
output$plot <- renderPlot({
# convert input to numeric values
x <- as.numeric(strsplit(input$textArea, "\\n")[[1]])
validate(
need(x, "Enter data into the text area"),
need(length(x) > 1, "Enter at least two rows of data into the text area")
)
dt <- data.frame(x = x)
ggplot(dt, aes(x)) +
geom_histogram()
})
}
)