插入超链接数据表列R.

Question

我想在R中链接HTML，我有这个主数据表，

id     mean 
22     12
17     23

我的HTML文件，其数据表名称为report_22（report_id），此表我只有id 22的信息

当我点击firt数据表中的id 22时，我想打开report_22。

我想为我的所有用户提供此服务。

报告在目录中：

C:\Users\windows\Documents\dossier1

如果我们没有ID的html，我想放一个其他链接 以谷歌为例

library(DescTools) ## to use the function like

### vector with all file with report in name
link <- as.data.frame(list.files('C:/Users/windows/Documents/Doc Bonus_malus',pattern = "^report"))
names(link) <- c('test')
link$test <- as.character(link$test)
path <- getwd()
path <- rep(path,nrow(link))
path <- paste(path,link$test,sep='/')

Including links within Rmarkdown tables (pdf)（我希望在我的情况下调整此代码）