slickR Package - 尝试同步 3 个轮播并更改文本颜色

问题描述

我正在 R 中将 slickr 包用于 Shiny 应用程序，并希望同步 3 个轮播，并尝试更改文本的颜色（默认为蓝色，尝试更改为黑色）。

要同步的三个轮播是：

1. 图片上方的文字
2. 图片
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,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。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）