shinydashboardPlus的旋转木马没有出现

Question

这是使用shinydashboardPlus实现的最基本的3张幻灯片旋转木马，默认行为是显示上一张/下一张幻灯片的V形图标。然而，我似乎不能让他们出现。为什么会这样呢？

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- fluidPage(

  titlePanel("Carousel Demo"),

  carousel(indicators = TRUE,
    id = "mycarousel",
    carouselItem(
      tags$img(src = "https://placehold.it/900x500/3c8dbc/ffffff&text=Slide+1")
    ),
    carouselItem(
      tags$img(src = "https://placehold.it/900x500/bbbbbb/ffffff&text=Slide+2")
    ),
    carouselItem(
      tags$img(src = "https://placehold.it/900x500/ff0000/ffffff&text=Slide+3")
    )
  )
)

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

shinyApp(ui, server)

Answer 1

似乎你必须在dashboardPagePlus中使用caroussel才能得到它的默认布局。

设置disable = TRUE隐藏标题，并设置width = 0隐藏侧边栏(如果不需要它们)：

ui <- dashboardPagePlus(
  header = dashboardHeaderPlus( disable = TRUE ),
  sidebar = dashboardSidebar( width = 0 ),
  body = dashboardBody(
    carousel(indicators = TRUE,
             id = "mycarousel",
             carouselItem(
               tags$img(src = "https://placehold.it/900x500/3c8dbc/ffffff&text=Slide+1")
             ),
             carouselItem(
               tags$img(src = "https://placehold.it/900x500/bbbbbb/ffffff&text=Slide+2")
             ),
             carouselItem(
               tags$img(src = "https://placehold.it/900x500/ff0000/ffffff&text=Slide+3")
             )
    )
  )
)