R - kableExtra 使用 link 创建列
R - kableExtra create column with link
我正在创建一个带有 hyperlink 列的 table,但是那些 hyperlink 非常长,我想用图像替换长文本,单击它并在新选项卡中打开 link。
例如,使用此代码
df = iris[c(1,51,101),]
df$hyperlink = c("https://en.wikipedia.org/wiki/Iris_setosa", "https://en.wikipedia.org/wiki/Iris_versicolor", "https://en.wikipedia.org/wiki/Iris_virginica")
kable(df,format = "html")%>%
kable_styling(bootstrap_options = c("hover", "condensed"), full_width = F)
我将最后一列作为 hyperlinks 获取,但我想要放置一个图像,单击该图像会打开 url(最好在新的 window 或制表符)
您可以通过添加适当的 html 标签来添加可点击的图像。 <a href='...'></a>
用于超链接,<img src='...'>
用于图像。只需将图片标签放在开始和结束 html 标签之间。此外,请务必在 kable
语句中包含 escape=FALSE
以使其生效。
library(kableExtra)
library(dplyr)
df = iris[c(1,51,101),]
df$hyperlink = c("<a href='https://en.wikipedia.org/wiki/Iris_setosa'><img src='setosa.png' /</a>",
"<a href='https://en.wikipedia.org/wiki/Iris_versicolor'><img src='versicolor.png' /></a>",
"<a href='https://en.wikipedia.org/wiki/Iris_virginica'><img src='virginica.png' /></a>")
kable(df,escape=FALSE,format = "html")%>%
kable_styling(bootstrap_options = c("hover", "condensed"), full_width = F)
我正在创建一个带有 hyperlink 列的 table,但是那些 hyperlink 非常长,我想用图像替换长文本,单击它并在新选项卡中打开 link。
例如,使用此代码
df = iris[c(1,51,101),]
df$hyperlink = c("https://en.wikipedia.org/wiki/Iris_setosa", "https://en.wikipedia.org/wiki/Iris_versicolor", "https://en.wikipedia.org/wiki/Iris_virginica")
kable(df,format = "html")%>%
kable_styling(bootstrap_options = c("hover", "condensed"), full_width = F)
我将最后一列作为 hyperlinks 获取,但我想要放置一个图像,单击该图像会打开 url(最好在新的 window 或制表符)
您可以通过添加适当的 html 标签来添加可点击的图像。 <a href='...'></a>
用于超链接,<img src='...'>
用于图像。只需将图片标签放在开始和结束 html 标签之间。此外,请务必在 kable
语句中包含 escape=FALSE
以使其生效。
library(kableExtra)
library(dplyr)
df = iris[c(1,51,101),]
df$hyperlink = c("<a href='https://en.wikipedia.org/wiki/Iris_setosa'><img src='setosa.png' /</a>",
"<a href='https://en.wikipedia.org/wiki/Iris_versicolor'><img src='versicolor.png' /></a>",
"<a href='https://en.wikipedia.org/wiki/Iris_virginica'><img src='virginica.png' /></a>")
kable(df,escape=FALSE,format = "html")%>%
kable_styling(bootstrap_options = c("hover", "condensed"), full_width = F)