Shinydashboard box() 被 Shiny 中的图形包掩盖答案

【问题标题】：Shinydashboard box() masked by graphics package in ShinyShinydashboard box() 被 Shiny 中的图形包掩盖
【发布时间】：2020-02-20 16:38:09
【问题描述】：

我正在尝试为我闪亮的应用程序创建盒子，但我相信 shinydashboard 中的 box() 函数被 graphics 包中的 box() 函数所掩盖。

这是我的问题的一个非常简单的重现，并附有我的盒子外观的屏幕截图。我已经包含了我在实际的闪亮应用中使用的包，以防万一，但它们没有在这个复制中使用。我试过用shinydashboard::box() 运行它，但这也没有用。

library(shiny)
library(shinydashboard)
library(flexdashboard)
library(dplyr)

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

ui <- shinyUI(
    fluidPage(
        titlePanel("title panel"),
        sidebarLayout(
            sidebarPanel("Sidebar"),
            mainPanel(
                shinydashboard::box(title = "Box Fail.", status = "primary", background = "red")
            )) ))

shinyApp(ui = ui, server = server)

``
[![shiny screenshot][1]][1]


  [1]: https://i.stack.imgur.com/a17d2.png

【问题讨论】：

标签： r shiny package shinydashboard

【解决方案1】：

您可以使用shinyWidgets 包中的useShinydashboard()

说明

允许将“shinydashboard”中的函数用于经典的“闪亮”应用，特别是 valueBox、infoBox 和 box。

library(shiny)
library(shinydashboard)
library(flexdashboard)
library(dplyr)
library(shinyWidgets)

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

ui <- shinyUI(
  fluidPage(
    useShinydashboard(),
    titlePanel("title panel"),
    sidebarLayout(
      sidebarPanel("Sidebar"),
      mainPanel(
        shinydashboard::box(title = "Box Fail.", status = "primary", background = "red")
      )) ))

shinyApp(ui = ui, server = server)

【讨论】：

嗯，这是一个非常有用的软件包！谢谢猪排。