我正在将 R 中的 slickR 包用于 Shiny 应用程序,并希望同步 3 个轮播,并尝试更改文本的颜色(默认为蓝色,尝试更改为黑色)。
要同步的三个轮播是:
- 图片上方的文字
- 图片
- 图片下方的文字
创建一个简单的示例,尝试使用嵌套括号,但这不起作用。
library(slickR)
df <- nba_player_logo[1:20, ]
df$Carousel_Position <- as.character(1:20)
# Photo Slides
photos_slides <- slickR(obj = df$uri,height = 100, width = "100%")
# Text Slides
carousel_positions_slides <- slickR(obj = df$Carousel_Position, slideType = 'p')
names_slides <- slickR(obj = df$name, slideType = 'p')
carousel_settings_arrows <- settings(initialSlide = 0,
slidesToShow = 5,
slidesToScroll = 5,
focusOnSelect = TRUE,
autoplay = FALSE,
arrows = TRUE)
carousel_settings_no_arrows <- settings(initialSlide = 0,
slidesToShow = 5,
slidesToScroll = 5,
focusOnSelect = TRUE,
autoplay = FALSE,
arrows = FALSE)
( (carousel_positions_slides + carousel_settings_no_arrows) %synch% (photos_slides + carousel_settings_arrows) ) %synch% (names_slides + carousel_settings_no_arrows)
当我尝试这个时,单击左右箭头时,图像和播放器名称会正确更新,但轮播位置(顶部文本)不会。它只是保持1-5。有没有办法同步 3 个轮播?
另外,正如我所提到的,我希望将文本从默认的蓝色更改为黑色。有没有办法做到这一点?我非常精通 R,但不太了解 CSS 和 Javascript。