r语言 - 将数据表中的文本 URL 转换为活动超链接

Question

这是我闪亮的应用程序的图像我使用 r 闪亮的软件包创建了闪亮的应用程序，其中插入了一个来自谷歌表格的数据表，其中有一列 youtube 链接我想将其制作为超链接，以便用户可以导航到相应 URL 的 youtube 视频

下面是具有包含链接的表的应用的完整代码。

服务器.r

function(input,output,session) {
admin_emails <- c("*************","*************")
addClass(selector = "body", class = "sidebar-collapse")
a <- 0
b <- 0
c <- 0
insChart_data <- NULL
ginsChart_data <- NULL
qginsChart_data <- NULL
values <- reactiveValues(authenticated = FALSE, df = 
NULL,gdf=NULL,insChart1_data = 
NULL,ginsChart1_data=NULL,insChart2_data = NULL,ginsChart2_data = 
NULL)
values[['qgdata']] <- gs_merged %>% gs_read(ws="glanceyt") %>% 
as.data.frame() %>% mutate(publishdate = as.Date(publishdate),Week = 
as.Date(publishdate,"%m/%d/%Y"))

我已经从谷歌表格创建了表格，我希望链接列是超链接的

Answer 1

您可以在数据表中创建 HTML 链接标记和转义 html，

links <- c(as.character(tags$a(href = "https://www.youtube.com/embed/dQw4w9WgXcQ",target = "_blank","Link")),
as.character(tags$a(href = "https://www.youtube.com/embed/dQw4w9WgXcQ",target = "_blank","Link2")))
data <- data.frame(links = links)

DT::datatable(data.frame(links = links),escape = FALSE)