我正在使用 Rmarkdown 和 ShinyDashboardPlus 创建图像轮播。如何删除此轮播中幻灯片周围的浅灰色矩形?
降价
---
title: Carousel test
---
Here is a carousel
```{r, label='HIS-table', echo=FALSE, message=FALSE, warning=FALSE, results="asis"}
library("shiny")
library("shinydashboard")
library("shinydashboardPlus")
num_slides <- 1
chart_names <- "http://placehold.it/600x300/565656/ffffff&text=Slide+1"
items = Map(function(i) {carouselItem(
tags$img(src = chart_names[i])
)}, 1:num_slides)
ui <- dashboardPagePlus(
header = dashboardHeaderPlus(disable = TRUE ),
sidebar = dashboardSidebar(width = 0 ),
body = dashboardBody(
carousel(indicators = TRUE,
id = "mycarousel",
.list = items
)
)
)
server <- function(input, output, session) {}
shinyApp(ui, server)
```
Here is the end of the carousel