Коробка Shinydashboard () замаскирована графическим пакетом в Shiny

Question

Я пытаюсь создать коробки для своего блестящего приложения, но я верю, что функция box() из shinydashboard маскируется функцией box() из пакета graphics.

Вот очень простое воспроизведение моей проблемы со скриншотом того, как выглядит моя коробка. Я включил пакеты, которые я использую в свой настоящий shinyapp на случай, если это важно, но они не используются в этом воспроизведении. Я попытался запустить его с 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

Answer 1

Вы можете использовать useShinydashboard() из shinyWidgets пакета

Описание

Разрешить использовать функции из 'shinydashboard' в класс c «блестящее» приложение, в частности 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)