我有一個(gè)帶有下拉列表和日期列的小rhandsontable。當(dāng)我點(diǎn)擊下拉菜單時(shí)，列表沒有顯示出來，而在日期字段的情況下，日期選擇器很容易打開。

可重現(xiàn)的代碼如下:

if(interactive()) {
  library(shiny)
  library(rhandsontable)
  library(dplyr)
  
  ui <- fluidPage(br(),
                  br(),
                  
                  fluidRow(column(12, rHandsontableOutput("mytable"))))
  
  server <- function(input, output, session) {
    output$mytable <- renderRHandsontable({
      data <-
        mtcars %>%
        mutate(datecol = Sys.Date()) %>%
        head(2)
      
      rhandsontable(data, strecH = "all") %>%
        hot_col(2, type = "dropdown", source = c(4, 6, 8)) %>%
        hot_col(12, type = "date")
    })
    
  }
  
  shinyApp(ui = ui, server = server)
}

簡單的目標(biāo)是以與datepicker相同的方式獲取下拉列表。

然而，同時(shí)如果表更大，它顯示出來:

我想將datepicker的屬性復(fù)制到dropdown的屬性中。此外，即使是最后一行，下拉列表也應(yīng)該出現(xiàn)在下面。

Ypu必須設(shè)置overflow = & quot可見& quot：

rhandsontable(data, strechH = "all", overflow = "visible") %>%

還要注意，你弄錯(cuò)了拉伸。

編輯:校樣

library(rhandsontable)

rhandsontable(mtcars[1:3, ], strechH = "all", overflow = "visible") %>%
  hot_col(2, type = "dropdown", source = c(4, 6, 8))