25

我正在为通路丰富程序创建用户界面。结果如下表所示。

在此处输入图像描述

下面是一个片段,显示我正在使用 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 有 URL,但它们没有激活。

4

1 回答 1

45

你需要做两件事:

  1. 修改最后一列,以便将 KEGGLINK 更改为正确的 HTML 链接,如下所示:<a href='url'>link text</a>

  2. 传递 DTescape = FALSE参数,使其不会转义 HTML 代码。

DT 网页在第 2.9 节中有一个示例: https ://rstudio.github.io/DT/

做#1的一个简单方法是:

mydata$url <- paste0("<a href='",mydata$url,"'>",mydata$url,"</a>")
于 2015-06-17T20:28:06.610 回答