dashboardSidebar：頁面大小

enter image description here dashboardSidebar：頁面大小

有人可以幫我解決這個顯示問題嗎？

2016-12-29 Noamane

你能告訴我們你究竟在做什麼？ –

我試圖讓框的大小與pivottable大小相匹配，並且如果pivottable的大小更大，就有一個滾動條。但背景顏色「皮膚藍色」似乎根據盒子的大小不合適。 – Noamane

請包含最少可重複的代碼 – HubertL

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") 
    ) 
    ) 
))))

來源

2016-12-30 08:08:28 Noamane

這取決於您使用的佈局。如果您使用的是基於列的佈局，則可以設置box(width=NULL)。這應該解決這個問題。從你的代碼看，你使用的是基於列的佈局。 width =25沒有意義。因爲，are的整體寬度是12.因此，將它設置爲width = NULL，它將解決問題。如果您使用的是基於行的佈局，那麼當您混淆寬度參數時。

來源

2017-09-28 14:53:51 user5249203

dashboardSidebar：頁面大小

回答

相關問題