在我的Rshiny 应用程序中,我有一个DT DATABLE,它的列对于容器的可用水平空间来说太多了.因此,我使用fillContainer=TRUE,这样桌子就可以放在它的容器中,并且可以水平和垂直滚动.

我的问题是,这样做,即使我在屏幕上有足够的垂直空间可用,也只有两行同时可见.下面给出了一个可重复使用的示例:

library(shiny)
library(DT)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(dataTableOutput("DT")),
    mainPanel()
  )
)

server <- function(input, output) {
data<-mtcars
output$DT<-renderDT(
  datatable(
    data,
    fillContainer=TRUE))
}
 
shinyApp(ui = ui, server = server)

你有什么小贴士可以轻松地增加表格中可见的行数,以提高可读性,而不依赖于应用程序中可能存在的其他元素?当然,datatableheight论点没有回应,因为fillContainer=TRUE.除了摆弄css或html来固定容器的高度(如果有,如何固定?),难道没有其他 Select 吗?

非常感谢!

推荐答案

我建议使用scrollX = TRUE而不是fillContainer = TRUE,同时显示给定的行数(pageLength)或给定的表格高度(scrollY=some css unit)

library(DT)
library(shiny)
library(datasets)

data <- mtcars

ui <- fluidPage(sidebarLayout(sidebarPanel(DTOutput("DT")), mainPanel()))

server <- function(input, output) {
  output$DT <- renderDT({datatable(data, options = list(scrollX = TRUE, pageLength = 15L))}) # alternative: scrollY = "80vh"
}

shinyApp(ui = ui, server = server)

Css相关问答推荐

如何在CSS calc()中使用反向百分比/无单位计算?

使用背景滤镜时,伪元素出现在div之前

React呈现多个css文件

InertiaJS - Vue - Laravel:Using CSS Files

截断风景中的柔子或强制在其自己的线上,如果是肖像

无法在 React 组件 (TypeScript) 中应用 Tailwind CSS 类

.NET 8 预览版 6 中不使用新项目模板提供 Blazor CSS 文件

使用纯 CSS 访问跨度内容并设置其样式

如何向 Highcharts 迷你图添加具有淡入淡出效果的线性渐变?

使用CSS Grid是否可以跳过下一列?

为什么所有选项卡都没有显示在 React 的 MUI 选项卡组件中?

在 css Select 器中匹配 unicode char

使用border-radius时填充元素之间的空间

普通流,流布局,块和内联布局有什么区别?

卡在 CSS 中的grid-template-columns中

字体上的 Font-Awesome 错误 404

如何计算所需的色调旋转以生成特定 colored颜色 ?

如何防止内联块 div 换行?

背景图像可以大于 div 本身吗?

使用css调整div中背景图像的大小