增加闪亮仪表板中侧标签和闪亮小部件之间的距离

【问题标题】：Increase distance between side-label and shiny widget in shiny dashboard增加闪亮仪表板中侧标签和闪亮小部件之间的距离
【发布时间】：2021-04-26 16:36:45
【问题描述】：

如何在闪亮的仪表板中增加标签和输入之间的距离？

library(shiny)

ui <- shinyUI(
  pageWithSidebar( 
    
    headerPanel("side-by-side"), 
    
    sidebarPanel(
      fluidRow(
        tags$head(
          tags$style(type="text/css", "label.control-label, .selectize-control.single{ display: table-cell; text-align: center; vertical-align: middle; } .form-group { display: table-row;}")
        ),
        column(2),
        column(4,
               selectInput(inputId = "options", label = "some text", 
                           choices = list(a = 0, b = 1))
        )
      )),
    mainPanel(
      fluidRow( 
        h3("bla bla")
      ))
  )
)
server <- shinyServer(function(input, output) { NULL })
shinyApp(ui = ui, server = server)

【问题讨论】：

标签： r shiny

【解决方案1】：

尝试在selectInput 之前添加这一行，并确保在selectInput 之后添加额外的括号以关闭tags$div。

tags$div(id = "div_test", tags$style("#div_test div {margin-left: 20px}")

原来是这样：

column(4,
       tags$div(id = "div_test", tags$style("#div_test div {margin-left: 20px}"),

       selectInput(inputId = "options", label = "some text", 
                   choices = list(a = 0, b = 1))),
)

所以基本上它的作用是在selectIput 之前创建一个额外的div，我们将使用它来缩进以增加标签和选择输入之间的间距。

【讨论】：