shinydashboardPlus 的旋转木马 - 不出现人字形

Question

这是使用 shinydashboardPlus 实现的最基本的 3 幻灯片轮播默认行为是显示 previous/next 幻灯片人字形。但是，我似乎无法让它们出现。这是为什么？

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隐藏header，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")
             )
    )
  )
)

shinydashboardPlus 的旋转木马 - 不出现人字形

shinydashboardPlus' carousel - Chevrons do not appear

r

shiny

shinydashboard