在 R 中的每个轮播图像中插入一个 link 并带有 jQuery

Question

我尝试在 R 中的每个旋转木马图像中添加一个 link。我的代码（图像不可重现。您必须使用计算机中的图像）：

---
title: "Statistics"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    theme: spacelab
---

```{r}
library(flexdashboard)
library(shiny)
library(broom)
library(scales)
library(kableExtra)
library(bsplus)
library(htmltools)
```

aaaaaaaaaaaaaaaaaaaaaaa
===========================================

Column {}
-------------------------------------------

```{r}
bs_carousel(id = "the_beatles", use_indicators = 
TRUE) %>%
  bs_append(
content = bs_carousel_image(src = "img/image_2.jpg"),
caption = bs_carousel_caption("John Lennon", "Rhythm guitar, vocals")
  ) %>%
  bs_append(
content = bs_carousel_image(src = "img/image_1.jpg"),
caption = bs_carousel_caption("Paul McCartney", "Bass guitar, vocals")
  )
```

如何在每个轮播图片（image_1 和 image_2）中插入可点击的 link？

例如，通过点击轮播 image_1，用户被定向到网站 www.whosebug.com；如果点击轮播 image_2，用户将直接访问网站 www.google.com.

要在所有图像上放置相同的link，我将此代码(jQuery)放在YAML下方header:

<script>
$('.carousel-inner>.item>img').wrap('<a href = "https://www.whosebug.com" 
target = "_blank">');
</script>

但是，我想要每个图像 link。

谢谢。

Answer 1

您可以使用这个脚本：

<script>
var urls = ["https://www.whosebug.com", "https://www.google.com"]
$('.carousel-inner>.item>img').wrap(function(i){
return '<a href = "' + urls[i] + '" target = "_blank">'
});
</script>

在 R 中的每个轮播图像中插入一个 link 并带有 jQuery

Insert a link in each image of carousel in R with jQuery

jquery

r

flexdashboard