如何在R中设置页面宽度？

我有一个带有侧边栏布局的

fluidPage

。在

主面板中

，我有一个非常广泛的

数据表输出

（在

选项卡面板中

）

目前，这些列被挤在一起，每一行都被文本包装成多行。但是，我希望表的每一行不被文本包装，并且在页面上启用水平滚动

最小工作示例：

library(shiny)
nrow <- 20; ncol <- 26
runApp(list(
    ui = fluidPage(
        sidebarLayout(
            sidebarPanel(helpText("Hello world")),
            mainPanel(
                tabsetPanel(
                    tabPanel("Table", dataTableOutput("table"))
                )
            )
        )
    ),
    server = function(input, output, session) {
        output$table <- renderDataTable(
            as.data.frame(
                matrix(nrow = nrow,
                    rep("The quick brown fox jumps over the lazy dog", nrow*ncol)
                )
            )
        )
    }
))

库（闪亮）
nrow在标签面板上加一个div，给出宽度。添加一些css以更改流体容器的最大宽度

library(shiny)
nrow <- 20; ncol <- 26
runApp(list(
  ui = fluidPage(
    sidebarLayout(
      sidebarPanel(helpText("Hello world")),
      mainPanel(

        tabsetPanel(
          div(tabPanel("Table", dataTableOutput("table")), style = 'width:5500px;')
        )
        , 
        tags$head(tags$style(type="text/css", ".container-fluid {  max-width: 12600px; /* or 950px */}"))
      )
    )
  ),
  server = function(input, output, session) {
    output$table <- renderDataTable({
      as.data.frame(
        matrix(nrow = nrow,
               rep("The quick brown fox jumps over the lazy dog", nrow*ncol)
        )
      )
    })
  }
))

库（闪亮）
nrow将div从包围
tabPanel
移动到包围tabPanel内容，如下所示：

  tabsetPanel(
    tabPanel("Table", div(dataTableOutput("table"), style = 'width:5500px;'))
    tabPanel("Table2", div(dataTableOutput("table2"), style = 'width:5500px;'))
    )

将tabPanel封装在div中，将生成一个包含两个表的tabPanel，而不是两个分别包含一个表的tabPanel