ShinyDashborad-仪表板侧栏-复选框输入边距顶部_Shiny_Shinydashboard

ShinyDashborad-仪表板侧栏-复选框输入边距顶部

shiny

ShinyDashborad-仪表板侧栏-复选框输入边距顶部,shiny,shinydashboard,Shiny,Shinydashboard,我试图减少checkboxinput的上边距，因为它与其他输入不同，正如您在第一个菜单项中看到的，即使我定义的上边距等于0px。我找到的解决方案是定义一个负的上边距，但当我定义它时，复选框隐藏了actionLink上边距减少谁能解决这个问题 library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar( menuItem("teste",

我试图减少checkboxinput的上边距，因为它与其他输入不同，正如您在第一个菜单项中看到的，即使我定义的上边距等于0px。我找到的解决方案是定义一个负的上边距，但当我定义它时，复选框隐藏了actionLink上边距减少

谁能解决这个问题

library(shiny)
library(shinydashboard)


ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    menuItem("teste",
             textInput("text","Text"),
             uiOutput("check_box_out",style="margin-left: 16px;margin-    top:0px;margin-bottom:16px"),
            actionLink("button", "Show checkbox",style="margin-left: 16px;margin-top:16px;margin-bottom:16px")),
menuItem("teste2",
         textInput("text2","Text2"),
         uiOutput("check_box_out2",style="margin-left: 16px;margin-top:-20px;margin-bottom:16px"),
         actionLink("button22", "Show checkbox2",style="margin-left: 16px;margin-top:16px;margin-bottom:16px"))
 ),
 dashboardBody())

server <- function(input, output, session) {
 observe({   
   observeEvent(input$button,{
  output$check_box_out <- renderUI({

    checkboxInput("check_box","checkboxinput",value = F)

  })
 })

 observeEvent(input$button22,{
   output$check_box_out2 <- renderUI({

     checkboxInput("check_box2","checkboxinput2",value = F)

   })
  })
 })
}

shinyApp(ui= ui, server = server)

库（闪亮）
图书馆（shinydashboard）
ui尝试标记$head（标记$style（type=“text/css”，“.shinny输入容器{padding top:0px！important；}”）

，看看这是否适合您。这将删除所有输入元素的顶部填充。具体地选择

checkboxInput

并不是那么容易。感谢您的回答，它很有效，但我有一个dateRangeInput，它没有页边空白！需要明确的是，您的敌人是类输入容器的填充顶部。遗憾的是，这包括了所有类型的输入元素。如果你想找到一个聪明的CSS选择器，只获取元素，你就可以设置了。另一个问题请看我的回答，关键是只获取复选框div谢谢，复选框div可以工作，但我必须设置一个负边距！尝试

tags$head（tags$style（type=“text/css”，“.shining-input-container{padding-top:0px！important；}”）

看看这是否适合您。这将删除所有输入元素的顶部填充。具体地选择

checkboxInput