在r shiny中为datatable中的元素创建超链接

library(shiny)
library(DT)

ui <- fluidPage(
  dataTableOutput("mytable")
)

server <- function(input, output) {
  output$mytable <- renderDataTable({
    datatable(
      iris,
      options = list(
        columnDefs = list(
          list(
            targets = "_all",
            render = JS(
              "function(data, type, row, meta) {",
              "  if (type === 'display') {",
              "    return '<a href=\"https://www.example.com\">' + data + '</a>';",
              "  }",
              "  return data;",
              "}"
            )
          )
        )
      )
    )
  })
}

shinyApp(ui, server)