如何解决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 举报,一经查实,本站将立刻删除。