4

我知道这个问题已经被问过几次了,但不幸的是,所提供的答案不适合我的任务。这是一个示例:将 R 中的表导出到带有超链接的 HTML

我需要将数据框从 R 导出到 html,同时提供可以单击以打开网站的超链接。以下 2 种格式仅导出为文本而非活动超链接。

预期的输出是在 html 中:列链接有网址作为链接,我可以单击一个,列 link2 显示名称,当我单击它时,它会打开相同的链接。现在发生的情况是,我在“link”列中看到了一个非活动链接,并在“link2”列中看到了 HTML 代码。

1   wiki    https://en.wikipedia.org/wiki/Main_Page <a href="https://en.wikipedia.org/wiki/Main_Page" target="_blank">wiki</a>
2   google  https://www.google.com/ <a href="https://www.google.com/" target="_blank">google</a>

我试图深入研究包参数,但找不到答案。https://cran.r-project.org/web/packages/tableHTML/tableHTML.pdf

谢谢你

这是我正在使用的代码。

name = c("wiki", "google")
link = c("https://en.wikipedia.org/wiki/Main_Page", "https://www.google.com/")

df = data.frame(name, link)
df$link2 = paste0("<a href='",df$link,">",df$name,"</a>", sep="")

tableHTML::write_tableHTML(tableHTML(df), file = "df.html") 
4

3 回答 3

2

在做了一些额外的阅读之后,我想我找到了一种不理想但有效的方法。

这是有效的代码:

library(tableHTML)

name = c("wiki", "google")
link = c("https://en.wikipedia.org/wiki/Main_Page", "https://www.google.com/")

df = data.frame(name, link)
 
df$link2 = paste('<a href="', df$link, '" target="_blank">', df$name, '</a>', sep="")


tableHTML::write_tableHTML(tableHTML(df, escape = F), file = "df.html") 
于 2021-03-15T03:18:29.387 回答
2

非常感谢您的提问。它启发了我们在2.1.0昨天发布的新版 tableHTML 中创建一个默认函数。

您现在可以使用该功能make_hyperlink

# install.packages("tableHTML") # make sure version 2.1.0 is used

library(tableHTML)

name <-  c("wiki", "google")
link <- c("https://en.wikipedia.org/wiki/Main_Page", "https://www.google.com/")

然后使用新函数创建 HTML。它需要超链接,即href. 您还可以传递第二个参数以用作名称:

hyperlinks <- make_hyperlink(link, name)

然后继续创建tableHTML

df = data.frame(name = hyperlinks)

df %>% 
 tableHTML(rownames=FALSE,
           escape=FALSE) %>% 
 tableHTML::write_tableHTML(file = "df.html") 

结果如下所示:

<table style="border-collapse:collapse;" class=table_1620 border=1>
<thead>
<tr>
  <th id="tableHTML_header_1">name</th>
</tr>
</thead>
<tbody>
<tr>
  <td id="tableHTML_column_1"><a href=https://en.wikipedia.org/wiki/Main_Page>wiki</a></td>
</tr>
<tr>
  <td id="tableHTML_column_1"><a href=https://www.google.com/>google</a></td>
</tr>
</tbody>
于 2021-03-22T09:46:10.247 回答
1

我可能没有正确理解您的问题,但是如果您只想将带有超链接的表格以带有工作链接的 html 呈现,那么一种简单的方法是创建一个 markdown 文件,然后在 rstudio 中将其“编织”到 html .

---
title: "table_to_html"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(kableExtra)
name = c("wiki", "google")
link = c("https://en.wikipedia.org/wiki/Main_Page", "https://www.google.com/")

df = data.frame(name, link)

df %>% kable() %>% kable_styling()

当你把它编织成 html 时,你会得到一个带有工作超链接的漂亮 html 文件。

于 2021-03-14T18:03:53.503 回答