Html 插入超链接数据表列R

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

id     mean 
22     12
17     23

我有一个HTML文件，其中datatable的名称是report_22（report_id），这个表中我只有id 22的信息

当我在firt datatable中单击ID22时，我想打开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='/')

library（DescTools）##使用以下函数
###带有名称为report的所有文件的向量
链接