r - 侧边栏菜单项之间的空间

Question

我正在努力创建一个 Shiny 的仪表板，并尝试在侧边栏的不同菜单之间创建空间。下面是我迄今为止为 UI 编写的代码。

library(shiny)
require(shinydashboard)
library(ggplot2)
library(dplyr)
library(shiny)
library(shinydashboard)

ui <-  dashboardPage(
  dashboardHeader(),
    dashboardSidebar(
      sidebarMenu(
        menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
        menuItem("Visit-us", icon = icon("send",lib='glyphicon'), 
                 href = "http://www.burgerking.co.nz/"),
        sidebarSearchForm(textId = "searchText", buttonId = "searchButton",
                          label = "Search..."),
        fileInput("file1", "Choose CSV File",
                  accept = c(
                    "text/csv",
                    "text/comma-separated-values,text/plain",
                    ".csv")),
        selectInput(
               "select",
               label = h3("Select Channel"),
               choices = c("All", "a", "b", "c"),
               selectize = TRUE,
               selected = "All")
                 )),
    dashboardBody()
  )

有人可以帮我展示如何在侧栏面板中的菜单项之间添加空格

Answer 1

在 dashboardBody() 中，添加以下 CSS 规范:

tags$head(tags$style(".sidebar-menu li { margin-bottom: 100px; }"))

根据需要更改100px。