我正在为路径丰富程序创建一个用户界面。结果如下表所示。
下面的代码片段显示我正在使用 DT::renderDataTable 和 DT::datatable 在选项卡中输出表。 spia_out() 只是一个反应函数，它运行通路富集并生成数据帧。
spia_out <- reactive({
...get results in a dataframe...
})
output$spiaout <- DT::renderDataTable({
DT::datatable(spia_out(), extensions = ..., options = ...)
})
一切正常，路径富集表已生成并打印在相应的 UI 元素中。我唯一的问题是如何将 URL 的最后一列 (KEGGLINK) 转换为活动超链接？这样人们只需单击它们即可，而无需复制和粘贴。
对于屏幕截图的尺寸，提前表示歉意。我希望您能看到最后一列 KEGGLINK 有文件，但它们不活跃。
你需要做两件事：
修改最后一列，将 KEGGLINK 更改为正确的 HTML 链接，如下所示：<a href='url'>link text</a>.
通过 DTescape = FALSE参数，以便它不会转义 HTML 代码。
DT 网页第 2.9 节中有一个这样的示例：https://rstudio.github.io/DT/ https://rstudio.github.io/DT/
执行#1 的一个简单方法如下：
mydata$url <- paste0("<a href='",mydata$url,"'>",mydata$url,"</a>")
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
