shinydashboardPlus 的旋转木马 - 不出现雪佛龙

【问题标题】：shinydashboardPlus' carousel - Chevrons do not appearshinydashboardPlus 的旋转木马 - 不出现雪佛龙
【发布时间】：2020-12-29 22:34:44
【问题描述】：

这是使用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)

【问题讨论】：

标签： r shiny shinydashboard

【解决方案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")
             )
    )
  )
)

【讨论】：

如果我想要一个没有任何仪表板元素的轮播，我该怎么办？只是幻灯片、V 形和项目符号。