Как я могу обновить слайдер с помощью updateSliderInput при загрузке rhandsontable в блестящее приложение? - PullRequest
0 голосов
/ 28 сентября 2018

мне кажется, что если я использую 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)

вот изображение того, что происходит с полем, которое создается, когда я нажимаю кнопку: enter image description here

...