rhandsontable 下拉菜单在 Shiny 应用程序中被缩短

Question

当我尝试在 Shiny 应用程序中编辑 rhandsontable 的条目时，下拉菜单被缩短。有没有办法让它们像rhandsontable tutorial 中的日期选择器一样完全展开？这是应用程序。

library(rhandsontable)
library(shiny)

ui = fluidPage(rHandsontableOutput("data"))

server = function(input,output) {
  df = data.frame(x = factor(letters[1:3], levels = letters))
  values = reactiveValues(data = df)

  observe({
    req(input$data)
    values$data = hot_to_r(input$data)
  })

  output$data = renderRHandsontable({
    rhandsontable(values$data) 
  })
}
shinyApp(ui = ui, server = server)

Answer 1

如果您更改 rhandsontable 的大小，它将起作用。

你可以试试：

library(rhandsontable)
library(shiny)

ui = fluidPage(rHandsontableOutput("data"))

server = function(input,output) {
  df = data.frame(x = factor(letters[1:3], levels = letters))
  values = reactiveValues(data = df)

  observe({
    req(input$data)
    values$data = hot_to_r(input$data)
  })

  output$data = renderRHandsontable({
    rhandsontable(values$data, height=500) 
  })
}
shinyApp(ui = ui, server = server)

编辑：基于this，您可以使用overflow = "visible"。它似乎解决了这个问题。

ui = fluidPage(rHandsontableOutput("data"))

server = function(input,output) {
  df = data.frame(x = factor(letters[1:3], levels = letters))
  values = reactiveValues(data = df)

  observe({
    req(input$data)
    values$data = hot_to_r(input$data)
  })

  output$data = renderRHandsontable({
    rhandsontable(values$data, overflow = "visible") 
  })
}
shinyApp(ui = ui, server = server)