小编Pet*_*erJ的帖子

我想删除/减少闪亮中选择输入的标签和选择选项之间的空间。我还想减少两个不同选择输入之间的空间。

我尝试将 selectinputs 包装为 div 样式，并将边距和填充设置为 0。这没有效果，但我可能做错了。请参阅下面的代码。

ui <- fluidPage(
  theme = shinytheme("sandstone"),
  sidebarLayout(
    sidebarPanel(
      div(style = "font-size:12px; margin: 0px; padding: 0px",
        selectInput(
            "select1", 
            label = h5("Selection 1"),
            choices = c("a", "b", "c"), 
            selectize = TRUE
          ),
          selectInput(
            "select2", 
            label = h5("Selection 2"),
            choices = c("a", "b", "c"), 
            selectize = TRUE
          )
      )
    ),
    mainPanel(
    )
  )
)

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

shinyApp(ui, server)