如何将一列网址转换为R中的链接？

Question

我有一个数据框，其中一列是所有网址。我试图将它们变成显示为＆＃34; link＆＃34;的链接。我的家庭作业说我应该使用[link](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)