R 闪亮的仪表板盒响应度

我有两个框，第一个框是两个输入，第二个框包含表。我使用包DT作为表格。对于分辨率1920x1080，此设置正常，但问题在于分辨率较小，例如1024x768

tabItem(tabName="Table",titlePanel("My Data"),


box(width=2,uiOutput("first_input"),textInput("numbers_input",label="choose your option",width ="200px")),

box(width=9,dataTableOutput("tabData"))

),

1024x768

---

尝试添加

scrollX=T

library(shiny)
library(shinydashboard)
library(DT)

ui <- dashboardPage(
  dashboardHeader(), 
  dashboardSidebar(),
  dashboardBody(
    tabItem(tabName="Table",titlePanel("My Data"),
            box(width=2,uiOutput("first_input"),textInput("numbers_input",label="choose your option",width ="200px")),
            box(width=9,dataTableOutput("tabData"))

    )
  )
)

server <- function(input, output, session) {
  output$tabData <- renderDataTable({cbind(mtcars,mtcars)},options = list(scrollX = T))
}

shinyApp(ui, server)

库（闪亮）
图书馆（shinydashboard）
图书馆（DT）
ui到底是什么问题？你没有真正突出显示它，你不想要卷轴吗？你想要100%的宽度？问题是什么？@猪排问题是，在较小的分辨率下，框是连接的。我希望框相邻。下面的示例应该可以，请注意在浏览器中打开应用程序。我不知道rstudio viewer对更改有何反应我知道，但我尝试在firefox中查看，问题是相同的。您应该提供完整的示例，因为下面的代码在firefox上也可以完美地工作