微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

ShinydashboardPlus 的轮播 - V 形不出现

如何解决ShinydashboardPlus 的轮播 - V 形不出现

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

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。