r - 在 R 中将 alt 文本标签添加到 slickR 轮播

Question

我和同事正在用 R-Markdown（基本，不是 blogdown、distillR 等）构建一个网站，并使用 slickR 包创建了几个幻灯片轮播。代码如下所示：

library(slickR)

images <- c("Slide1.JPG", "Slide2.JPG", "Slide3.JPG", "Slide4.JPG", "Slide5.JPG")
test <- slickR(obj = images, height=350, width='100%') 
test

我在 Google 上四处搜索，但找不到添加 alt 文本标签的方法，这样当您从一侧滑动到另一侧时，您会看到屏幕阅读器可以阅读的文本。这可能吗？如果有怎么办？或者，还有其他方法可以使轮播变得可访问吗？

谢谢！

Answer 1

关注slickR 与 DOMS的小插图

library(slickR)

images <- c("Slide1.JPG", "Slide2.JPG", "Slide3.JPG", "Slide4.JPG", "Slide5.JPG")
imgs_bare <- mapply(function(x,txt){
  htmltools::tags$img(src = x, title = txt)
},x = nba_player_logo$uri[c(1:5)],txt = images,SIMPLIFY = FALSE)
slickR(obj = imgs_bare, height=350)