R Flink 数据表-滚动X条不可见

anauzrmj 于 2023-02-01 发布在 Flink

关注(0)|答案(2)|浏览(141)

我正在开发一个闪亮的应用程序，我经常使用数据表对象。我需要一个滚动条在X轴上，以便能够看到其他列的应用程序。我添加了一个滚动条的数据表使用数据表选项。
然而，它太粘了。当你看到图片时，你会发现问题。如果滚动条保持粘滞，它将导致出现在模式对话框中。有可能使滚动条不可见吗？顺便说一句，我对JavaScript一无所知。

# Datatable Option
optlist <- list(
  autoWidth = TRUE,
  dom = 'rltip',
  #Scroll
  # deferRender = TRUE,
  # scroller = TRUE,
  scrollX = TRUE, scrollCollapse=TRUE,
  # Page Length
  pageLength = 25,
  # Search
  search = list(regex = TRUE, caseInsensitive = TRUE)#,
)

# Render Datatable
output$bor_dt <- renderDataTable(server = T,{
  datatable(
    sblist()%>%
      rename_all(., list(~gsub("[[:punct:]]", " ", .))),
    rownames = FALSE, # Remove rownames
    escape = FALSE, #Hyperlink
    class = "cell-border stripe display nowrap compact", # Borders
    selection = "single", # Satır seçimi
    filter = list(position = 'top', clear = TRUE, plain = F),
    # Options
    options = optlist
  )
})

Datatable & Sticky scrollbar
Sticky scroll bar & modal dialog
谢谢。

来源：https://stackoverflow.com/questions/75294013/r-shiny-datatable-scroll-x-bar-invisible

2条答案

按热度按时间

ycggw6v21#

谢谢你@Stephane
不幸的是，我不能分享完整的代码，但我准备了一个例子来模拟这个问题。数据中有很多列，你可以滚动，但你需要先过滤数据。

library(shiny)
library(DT)
library(tidyr)

# Datatable Option
optlist <- list(
  autoWidth = TRUE,
  dom = 'rltip',
  #Scroll
  # deferRender = TRUE,
  # scroller = TRUE,
  scrollX = TRUE, scrollCollapse=TRUE,
  # Page Length
  pageLength = 25,
  # Search
  search = list(regex = TRUE, caseInsensitive = TRUE)#,
)

# Define UI for application that draws a histogram
ui <- fluidPage(
    h3("ScrollX"),
    dataTableOutput("testDT")
)

# Define server logic required to draw a histogram
server <- function(input, output, session) {

    output$testDT <- renderDT({
      datatable(
        tidyr::billboard,
        rownames = FALSE, # Remove rownames
        escape = FALSE, #Hyperlink
        class = "cell-border stripe display nowrap compact", # Borders
        selection = "single", # Satır seçimi
        filter = list(position = 'top', clear = TRUE, plain = F),
        # Options
        options = optlist
      )
    }) 
    
}

# Run the application 
shinyApp(ui = ui, server = server)

赞(0）回复(0）举报 2023-02-01

fhg3lkii2#

因为我可以检查类似的问题为您的问题。我看到滚动条是由网页浏览器提供的数据表和最有问题的浏览器是Safari浏览器，因为我看到。当我尝试我的电脑，我认为结果是你所期望的。所以，你能复制您的问题与不同的浏览器？然后，我们可以理解这是Safari相关的或所有浏览器的一般问题。