ShinydashboardPlus 的轮播 - V 形不出现

编程问答 2022-06-01

问题描述

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

解决方法

看来您必须在 caroussel 中使用 dashboardPagePlus 才能获得其默认布局。

设置 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")
             )
    )
  )
)
rrshinyshinydashboard