Коробка в жидкости, базовая блестящая

Question

Можно ли использовать элемент box () в классическом блестящем приложении?Под классическим приложением я имею в виду не блестящую приборную панель.

Answer 1

Да, это возможно - вы можете использовать useShinydashboard () из библиотеки (inyWidgets )

Вот пример:

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)