在Shiny中将Hyperlink插入DT表

Question

我想在闪亮的DT表中插入一个超链接。

为了节省加载时间，我想在当前视图（input$table_rows_current）中插入超链接。

我厌倦了观察，但我不知道如何指定插入超链接的位置以及如何？

任何帮助非常感谢。

以下是示例代码：

library(shiny)

createLink <- function(val) {
   sprintf('<a href="https://www.google.com/#q=%s" target="_blank" >%s</a>',val,val)  
}

ui <- fluidPage(  
    titlePanel("Table with Links!"),
    sidebarLayout(
    sidebarPanel(
        h4("Click the link in the table to see
            a google search for the car.")
          ),
    mainPanel(
       dataTableOutput('table1')
            )
          )
        )

server <- function(input, output) {

     output$table1 <- renderDataTable({
        dt <- datatable(mtcars, escape=FALSE, selection = 'none') %>% formatStyle(0, cursor = 'pointer')
      })


     observe({
        List <- input$table1_rows_current
        List <- createLink(List)
         return(List)
     })

}

shinyApp(ui, server)