Shiny 仪表板侧栏：页面的大小

---

有人能帮我解决这个显示问题吗

ui这取决于您使用的布局。如果对框使用基于列的布局，则可以设置
框（宽度=NULL）
。这应该可以解决问题。从您的代码来看，您似乎正在使用基于列的布局<代码>宽度=25

没有意义。因为，are的总宽度是12。因此，将其设置为

width=NULL

，它将解决该问题。

ui <-  dashboardPage(
  skin = "red",
  dashboardHeader(title = "TEXT MINING", disable = F),
  dashboardSidebar(
    tags$style(
      "text/css",
      ".navbar {background-color:bule;}",
      "html,body,#map  body {width:120%;height:100%}"
    ),
    br(),
    br(),
    br(),
    br(),

    tags$head(tags$style(
      ".wrapper {overflow: visible !important;}"
    )),

    selectInput("choix", h2("ALL vs PRIO"), c("ALL", "PRIO")),
    helpText("ALL= Tout les clients, PRIO= Clients séléctionés(Prioritaires)"),
    selectInput("w", h2("Pondération de la matrice "), c("Tf", "TfIdf")),
    br(),
    br(),
    br(),
    br(),
    helpText("Cliquer pour téléharger la table"),
    downloadButton('downloadData', 'Download'),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br(),
    br()

  ),
  dashboardBody(mainPanel(tabsetPanel(
    navbarPage(
      "",
      tabPanel("Données", icon = icon("database"), dataTableOutput('donnees')),
      tabPanel(
        "Analyses exploratoires",
        icon = icon("bar-chart"),

        box(
          title = "Les pages visitées",
          status = "warning",
          width = 25,
          solidHeader = TRUE,
          collapsible = TRUE,
          plotOutput("pages", height = "650px")
        ),

        box(
          title = "Histogramme des notations ",
          status = "warning",
          width = 25,
          solidHeader = TRUE,
          collapsible = TRUE,
          plotOutput("his", height = "650px")
        ),

        box(
          title = "score par nombre d'étoile",
          status = "warning",
          width = 25,
          solidHeader = TRUE,
          collapsible = TRUE,
          plotOutput("sc", height = "650px")
        ) ,

        box(
          title = "Mots fréquents",
          status = "warning",
          width = 25,
          solidHeader = TRUE,
          collapsible = TRUE,
          plotOutput("mots", height = "650px")
        )



      ),
      tabPanel(
        "Nuages et assosciations des mots ",
        icon = icon("cloud"),
        fluidRow(column(12, wellPanel(
          sliderInput(
            "max",
            "Nombre maximal de mots",
            min = 100,
            max = 300,
            value = 200,
            step = 10
          )
        )),
        column(
          12,

          box(
            title = "Word Cloud",
            status = "warning",
            width = 18,
            solidHeader = TRUE,
            collapsible = TRUE,
            plotOutput("nuage", height = "450px")
          )
        )),
        fluidRow(column(12, wellPanel(
          sliderInput(
            "lowf",
            "Choisir n tel que Fréquence(mots)>n",
            min = 5,
            max = 30,
            value = 10,
            step = 1
          )
        )),
        column(
          12,
          box(
            title = "Graphe des associations",
            status = "warning",
            width = 18,
            solidHeader = TRUE,
            collapsible = T,
            plotOutput("asso", height = "650px")
          )
        ))
      ),
      tabPanel("Clustering", icon = icon("sitemap"), fluidRow(column(
        12,
        box(
          title = "K-means",
          status = "warning",
          width = 30,
          solidHeader = TRUE,
          collapsible = TRUE,
          plotOutput("cl", height = "650px")
        )
      ),
      column(
        12,
        box(
          title = "CAH",
          status = "warning",
          width = 30,
          solidHeader = TRUE,
          collapsible = TRUE,
          plotOutput("cl2", height = "650px")
        )
      ))),
      tabPanel(
        "Rapport",
        icon = icon("book") ,
        tags$iframe(style = "height:800px; width:100%; scrolling=yes",
                    src =
                      "rapportTextMining.pdf")
      )
    )
  ))))

---

如果使用的是基于行的布局，则在处理宽度参数时会出现这种情况

你能告诉我们你到底想做什么吗？我试着让框的大小与数据透视表的大小相匹配，如果数据透视表的大小更大，我会有一个滚动条。但是背景色“皮肤蓝”似乎不适合盒子的大小。请包含最小的可复制代码