Shinydahsboardplus：如何添加没有标题的框？

如何解决Shinydahsboardplus：如何添加没有标题的框？

最近更新 Shinydasboardplus（到 2.0）后，我无法制作没有标题且没有标题空间的 Box。

我尝试了 title = NULL,headerBorder = FALSE 并且仍然有这个空间。如何摆脱它？我想要一个只有内容的框，没有标题，没有标题空间。

谢谢！

示例：

library(shiny)
library(shinydashboard)
library(shinydashboardplus)
ui <- dashboardPage(
  title = "Box API",dashboardHeader(),dashboardSidebar(),dashboardBody(
    Box(
      title = NULL,headerBorder = FALSE,"Box body")
  )
)

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

shinyApp(ui,server)

解决方法

您可以使用 css 不显示标题。像这样：

ui <- dashboardPage(
  title = "Box API",dashboardHeader(),dashboardSidebar(),dashboardBody(
    box(
      id = 'foo',# use an id to only select this box
      title = NULL,headerBorder = FALSE,"Box body"
    ),tags$head(tags$style('#foo .box-header{ display: none}'))  # target the box header of foo
  )
)