gpt4 book ai didi

r - Shiny R 中的水平滚动问题

转载 作者:行者123 更新时间:2023-12-01 22:17:48 25 4
gpt4 key购买 nike

我在新的 shiny R 中,水平滚动有问题。这是我的代码。

output$sbirx.view <- DT::renderDataTable(
{
dataset.filter()
}, options = list(
searching = TRUE,
autoWidth=TRUE,
paging=FALSE,
scrollX=TRUE,
scrollY="500px",
scrollCollapse = TRUE,
fixedHeader=TRUE,
fixedColumns=list(leftColumns = 2, rightColumns = 0,
heightMatch = 'none')
),
rownames=FALSE,
class = 'cell-border stripe',
extensions = c('FixedColumns',"FixedHeader")

)

数据有 79 列,我可以选择要显示的列数。前 2 个左列(疾病和产品)应该是固定的,如果您只显示 3 列,表格看起来像这样。但是,如果我选择适合屏幕的几列,那就没问题了。

疾病产品 疾病产品 2010-11疾病1 产品1 疾病1 产品1 25,000疾病 1 产品 2 疾病 1 产品 2 15,000疾病 1 产品 3 疾病 1 产品 3 5,000

有没有办法使用任何选项来解决这个问题?

感谢您的宝贵时间和帮助。

最佳答案

看起来就像更正您的选项声明并指定缺少的 Scroller 扩展一样简单:

library("shiny")
library("DT")

ui <- shinyUI(
fluidPage(
dataTableOutput("data")
)
)

server <- shinyServer(function(input, output) {

output$data <- renderDataTable({
datatable(cbind(iris, iris, iris, iris),
extensions = c("FixedColumns", "FixedHeader", "Scroller"),
options = list(
# dom = 't',
# deferRender = TRUE,
searching = TRUE,
autoWidth = TRUE,
# scrollCollapse = TRUE,
rownames = FALSE,
scroller = TRUE,
scrollX = TRUE,
scrollY = "500px",
fixedHeader = TRUE,
class = 'cell-border stripe',
fixedColumns = list(
leftColumns = 3,
heightMatch = 'none'
)
)
)
})
})

shinyApp(ui, server)

enter image description here

关于r - Shiny R 中的水平滚动问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43353241/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com