мне кажется, что если я использую rhandsontable в блестящем приложении, это создает проблему с обычным способом обновления слайдера с помощью updateSliderInput.В приведенном ниже примере нажатие кнопки должно обновить ползунок (и это происходит, если не использовать rhandsontable в том же приложении).Вместо этого он каким-то образом создает новое текстовое поле?
Это ошибка в rhandsontable или я что-то не так делаю?Любая помощь / обходной путь будет очень признателен!
В случае, если это ошибка rhandsontable, есть ли альтернатива, которую я могу использовать в блестящем приложении, чтобы иметь электронную таблицу, например таблицу, куда данные можно копировать с помощью copy /вставить из Excel?Он не должен реагировать, у меня все в порядке, если у меня есть кнопка для обновления вычислений в блестящем приложении данными.Может быть, электронная таблица jquery, которая может быть загружена в блестящий с помощью кнопки?
Спасибо!
library(shiny)
library(rhandsontable)
ui <- fluidPage(
sliderInput("testslider","Test",0,10,5),
actionButton("do", "Click Me"),
rHandsontableOutput("hot")
)
server <- function(input, output, session) {
output$hot <- renderRHandsontable({
DF = data.frame(val = 1:10, bool = TRUE, big = LETTERS[1:10],
small = letters[1:10],
dt = seq(from = Sys.Date(), by = "days", length.out = 10),
stringsAsFactors = FALSE)
return(rhandsontable(DF))
})
observeEvent(input$do, {
updateSliderInput(session,inputId = "testslider" ,value = 10,
min = 0, max = 10, step = 0.1)
})
}
# Run the application
shinyApp(ui = ui, server = server)
вот изображение того, что происходит с полем, которое создается, когда я нажимаю кнопку: