将下载链接添加到放大弹出图库

Question

我想在用户点击缩略图后在我的标题旁边添加下载链接或图片来源？

到目前为止，我已设法让弹出窗口正常工作但是我似乎无法创建一个类似于我的图像的下载。

以下代码是我目前所拥有的。

library(tidyverse) 
newcols <-c("phylum", "class", "order", "family", "genus", "species")
df1 %>% 
   mutate(taxpath = sub(";$", "", taxpath)) %>%
   separate(taxpath, into = newcols, sep= ";\\s*") %>% 
   group_by(phylum) %>%
   summarise(Nnew = sum(N))
# A tibble: 3 x 2
#   phylum          Nnew
#   <chr>          <int>
# 1 Bacteroidetes    326
# 2 Planctomycetes    41
# 3 Proteobacteria    94

Answer 1

<a download="picture.jpg" href="/path/to/your/picture" title="pictureName">
    <img alt="" src="/path/to/your/picture">
</a>

每个浏览器都不支持