将替代文本标签添加到 R 中的 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 搜索了一下，但找不到添加替代文本标签的方法，以便在您左右滑动时获得屏幕 reader 可以阅读的文本。这可能吗？如果是这样怎么办？或者，还有其他方法可以让轮播无障碍访问吗？

谢谢！

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)

将替代文本标签添加到 R 中的 slickR 轮播

adding alt text tags to slickR carousel in R

r

r-markdown

slickr