将alt文本标记添加到R中的slickR旋转木马

Question

我和同事们正在用R-Markdown建立一个网站(basic，不是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

我用谷歌搜索了一下，找不到一种添加alt文本标签的方法，这样当你从一边向另一边滑动时，屏幕阅读器可以阅读文本。这个是可能的吗？如果是这样的话，是怎么做的？或者，有没有其他方法可以让carousel可访问？

谢谢!

Answer 1

关注slickR with 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)