Rshiny：减少底部填充闪亮的仪表板框

Question

在shiny::selectInput内附加shinydashboard::box，以下是Rshiny中的代码：

box(selectInput(inputId = "test", label = "Normalization", choices = 'RSEM: FPKM'), width = 3, background = 'navy') 

如何更改盒子填充，使底部深蓝色部分减少？

DOCS

我尝试使用css增加它：

.box {
  padding-bottom: 50%;
}

它增加了底部：

但是当我尝试减少它时，它并没有改变一点：

.box {
  padding-bottom: 1%;
}

Answer 1

form-group和selectize-control都有可以删除的底部边距。如果你想彻底摆脱盒子填充，你也可以删除box-body的底部填充。

以下是一个例子：

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody( tags$head(tags$style(HTML('
      .form-group, .selectize-control {
           margin-bottom: 0px;
      }
      .box-body {
          padding-bottom: 0px;
      }'))),
      box(selectInput(inputId = "test", label = "Normalization", choices = 'RSEM: FPKM'), width = 3, background = 'navy') )
)

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

shinyApp(ui,server)