如何将一列 url 转换为 R 中的链接

Question

我有一个数据帧，其中一列是所有网址。我正在尝试将它们转换为显示为"链接"的链接。我的家庭作业说我应该使用格式[link](url)，但包含我的列名对我来说不起作用。如何改变数据帧以将 URL 转换为链接？

Answer 1

下面是一个示例 Shiny 应用，它将采用一组 URL，然后将它们显示为可单击的链接。

ui <- fluidPage(
  dataTableOutput("myoutput")
)
server <- function(input, output, session){
  require(DT)
  myNames <- c("Google", "Facebook")
  myURLs <- c("https://google.com", "https://facebook.com")
  output$myoutput <- renderDataTable(escape = FALSE, {
    df <- data.frame(Site_Name = myNames, Site_URL = myURLs )
    df$Site_URL <- sapply(df$Site_URL, function(x)
      toString(tags$a(href = x, x)))
    df
  })
}
shinyApp(ui = ui, server = server)