在shiny输出表格中创建超链接，实现跳转或下载。

library(shiny)
library(DT)
library(data.table)

server <- function(input, output, session) {
  
  df_table <- reactive({
    data.table(
      links = c(
        paste0("<a href='https://www.jingege.wang'>", "Home", "</a>"),
        paste0("<a href='https://www.jingege.wang/CV'>", "CV", "</a>"),
        paste0("<a href='https://www.jingege.wang/loveluo'>", "LOVE", "</a>")),
      Site = c('https://www.jingege.wang', 'https://www.jingege.wang/CV', 'https://www.jingege.wang/loveluo')
    )
    
  })
  
  output$dt_table <- renderDataTable(
    df_table(), escape = FALSE, options = list(pageLength = 5))
  
}

ui <- fluidPage(
  navbarPage('TEST', 
             tabPanel("Table",
                      fluidPage(
                        fluidRow(dataTableOutput("dt_table")))),

  )
)

# Run the application 
shinyApp(ui, server)

效果图