R 如何减少selectinput中标签和选项之间的空间?
我想删除/减少Shiny中selectinput的标签和选择选项之间的空间。我还想减少两个不同输入之间的空间 我尝试将selectinputs包装为div样式,并将边距和填充设置为0。这没有效果,但我可能做错了。请参阅下面的代码R 如何减少selectinput中标签和选项之间的空间?,r,shiny,selectinput,R,Shiny,Selectinput,我想删除/减少Shiny中selectinput的标签和选择选项之间的空间。我还想减少两个不同输入之间的空间 我尝试将selectinputs包装为div样式,并将边距和填充设置为0。这没有效果,但我可能做错了。请参阅下面的代码 ui <- fluidPage( theme = shinytheme("sandstone"), sidebarLayout( sidebarPanel( div(style = "font-size:12px; margin: 0p
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)
ui这里是关于
要减少标签和下拉列表之间的空间,请使用以下CSS:
.shiny-input-container > label {margin-bottom: -15px;}
要减少两个选定输入之间的空间,可以在它们之间插入一个div
,样式为负边距顶部
library(shiny)
library(shinythemes)
css <- "
.shiny-input-container > label {margin-bottom: -15px;}"
ui <- fluidPage(
theme = shinytheme("sandstone"),
tags$head(
tags$style(HTML(css))
),
sidebarLayout(
sidebarPanel(
selectInput(
"select1",
label = h5("Selection 1"),
choices = c("a", "b", "c"),
selectize = TRUE
),
div(style = "margin-top:-15px"),
selectInput(
"select2",
label = h5("Selection 2"),
choices = c("a", "b", "c"),
selectize = TRUE
)
),
mainPanel(
)
)
)
server <- function(input, output, session) {}
shinyApp(ui, server)
库(闪亮)
图书馆(shinythemes)
cssdiv(tags$style(“.shinny-input-container{height:12px}”),[…]
可能会让你离目标更近一步。我不能100%确定如何瞄准你想要的元素,所以你可能需要修改。shinny-input-container
。类似的答案应该作为注释发布。