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

Question

当我尝试在 Shiny 应用程序中编辑 rhandsontable 的条目时，下拉菜单被缩短了。有没有办法让它们像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) 
  })
}
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)

编辑：基于此，您可以使用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)