FluidPage 中的框，基本闪亮

是否可以在经典闪亮应用程序中使用 box() 元素？作为经典应用程序，我的意思是不是闪亮的仪表板。

是的，这是可能的 - 你可以使用使用Shinydashboard https://www.rdocumentation.org/packages/shinyWidgets/versions/0.4.4/topics/useShinydashboard() 来自图书馆(闪亮小部件 https://github.com/dreamRs/shinyWidgets)

这是一个例子：

library(shiny)
library(shinyWidgets)
library(shinydashboard)

ui <- fluidPage(

  useShinydashboard(),

   titlePanel("Old Faithful Geyser Data"),

   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30)
      ),

      mainPanel(
         box(plotOutput("distPlot"), title = "My box title", footer = "My box footer", collapsible = TRUE, status = "success")
      )
   )
)

server <- function(input, output) {

   output$distPlot <- renderPlot({
      x    <- faithful[, 2] 
      bins <- seq(min(x), max(x), length.out = input$bins + 1)
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
   })
}

shinyApp(ui = ui, server = server)