如何在Shiny应用的DT::datatable中将整列URL转为可点击链接

要将DT表格中的URL列转换为可点击的跳转链接，有两种简洁的实现方式，以下是具体修改：

方法一：使用DT内置的formatURL函数（推荐） #

无需手动构造HTML，直接调用DT工具函数即可，还能自定义显示文本：

修改后的server部分代码：

server <- function(input, output) {
  
  output$table<-renderDataTable({
    datatable(df) %>%
      formatURL(columns = "Data Sources 1", # 指定目标列（支持列名或索引）
                target = "_blank") # 设置在新标签页打开链接
      # 若要自定义显示文本，添加text参数：text = "点击访问数据源"
  })
}

方法二：手动构造HTML链接标签 #

如果需要更灵活的自定义（比如修改链接样式），可以先将URL列转换为HTML的<a>标签，再关闭DT的转义功能：

修改后的server部分代码：

server <- function(input, output) {
  
  # 预处理URL列，生成HTML链接
  df_link <- df %>%
    mutate(`Data Sources 1` = paste0(
      "<a href='", `Data Sources 1`, "' target='_blank' style='color:blue;'>", 
      `Data Sources 1`, # 此处可替换为自定义文本，比如"查看数据源"
      "</a>"
    ))
  
  output$table<-renderDataTable({
    datatable(df_link, escape = FALSE) # escape=FALSE让DT解析HTML标签
  })
}

完整修改后的app.R代码（以方法一为例） #

## app.R ##
library(shiny)
library(shinydashboard)
library(DT)

df<-structure(list(sub_indicator = c("peak concentrations", "Toxics Release Inventory", 
                                     "American Housing Survey"), `Data Sources 1` = c("https://www.epa.gov/outdoor-air-quality-data/air-quality-index-report", 
                                                                                      "https://www.epa.gov/toxics-release-inventory-tri-program/tri-data-and-tools#triadvanced", 
                                                                                      "https://www.census.gov/programs-surveys/ahs/data/interactive/ahstablecreator.html?s_areas=00000&s_year=2021&s_tablename=TABLE1&s_bygroup1=1&s_bygroup2=1&s_filtergroup1=1&s_filtergroup2=1"
                                     )), row.names = c(NA, -3L), class = c("tbl_df", "tbl", "data.frame"
                                     ))


ui <- dashboardPage(
  dashboardHeader(title = "Dataset Inventory"),
  dashboardSidebar(),
  dashboardBody(
    dataTableOutput("table")
  )
)

server <- function(input, output) {
  
  output$table<-renderDataTable({
    datatable(df) %>%
      formatURL(columns = "Data Sources 1", target = "_blank")
  })
}

shinyApp(ui, server)

关键说明 #

• target="_blank"：设置点击链接后在新标签页打开，避免跳转后离开Shiny应用。
• 方法一中的formatURL支持指定多列（比如columns = c(2,3)），适合多URL列场景。
• 方法二中必须设置escape=FALSE，否则DT会把HTML标签当作纯文本显示。

内容的提问来源于stack exchange，提问作者firmo23