0

我正在使用 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
4

0 回答 0