Css 删除仪表板侧栏中splitLayout中列之间的间隙

我正在shinydashboard软件包中的

仪表板侧栏（）

中使用

splitLayout（）

函数。当我这样做时，我的

splitLayout（）

中的输入之间存在很大的差距

当我使用vanilla Shining时，我可以通过参数

cellArgs=list（style=“padding:0px”）

来控制这个间隙，但这似乎在

仪表板侧栏（）中有不同的效果

问题：
如何控制
仪表板侧栏（）
中
拆分布局（）中的输入之间的间隙

这是一个MRE，它显示了我在使用填充时失败的尝试

library(shinydashboard)
library(shiny)

sidebar <- dashboardSidebar(width=400,
                            sidebarMenu(
                              menuItem("Default", tabName = "dashboard", icon = icon("dashboard"),startExpanded = T,
                                       splitLayout(cellWidths = c(100,100,100,100),
                                                   textInput("a1",label=NULL,value = 1),
                                                   textInput("a2",label=NULL,value = 2),
                                                   textInput("a3",label=NULL,value = 3),
                                                   textInput("a4",label=NULL,value = 4)
                                       ),
                                       splitLayout(cellWidths = c(100,100,100,100),cellArgs = list(style="padding: 0px"),
                                                   textInput("b1",label=NULL,value = 1),
                                                   textInput("b2",label=NULL,value = 2),
                                                   textInput("b3",label=NULL,value = 3),
                                                   textInput("b4",label=NULL,value = 4)
                                       ),
                                       #see the effect of padding
                                       splitLayout(cellWidths = c(100,100,100,100),cellArgs = list(style="padding: 20px"),
                                                   textInput("c1",label=NULL,value = 1),
                                                   textInput("c2",label=NULL,value = 2),
                                                   textInput("c3",label=NULL,value = 3),
                                                   textInput("c4",label=NULL,value = 4)
                                       )
                              )
                            )
)

body <- dashboardBody(

)

# Put them together into a dashboardPage
ui <- dashboardPage(
  dashboardHeader(title = "Padding demo",titleWidth=400),
  sidebar,
  body
)
server <- function(input, output) {


}
shinyApp(ui,server)

库（ShinydaShashboard）
图书馆（闪亮）
侧边栏您的问题不在于
拆分单元格的填充问题
——这很好。这与输入周围也有填充有关。要删除此项，可以添加以下代码

body <- dashboardBody(
  tags$head(
    tags$style(
      ".shiny-input-container{padding:0px !important;}"
    )
  )
)

body谢谢！工作完美。