0

我正在将 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,
                                        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。

4

0 回答 0