R glänzend öffnen Sie die URLs von renderTable in einem neuen Tab

Question

Ich habe renderTable mit URL-Links:

output$url_list <- renderTable({ 
    url_list<-as.data.frame(urls_from_plg_table()) 
}, sanitize.text.function = function(x) x, target="_blank", 
    options = list(aLengthMenu = c(5, 30, 50), iDisplayLength = 5)) 

ich die URLs aus dieser Tabelle in einem neuen Tab von meinem glänzenden App öffnen möchten.

Ich versuche hinzufügen: target = "_ blank", aber es funktioniert nicht auf diese Weise. Wie kann ich darüber gehen?

Vielen Dank!

Answer 1

Verwenden Sie eine Zeichenfolge mit dem HTML-Tag in Ihrem data.frame. (Und vergessen Sie nicht, sanitize.text.function = function(x) x Ihre HTML-Tags zu bewerten, wie es ist).

Zum Beispiel:

shiny::runApp(list( 
    ui = bootstrapPage(

    tableOutput("table") 

    ), 

    server = function(input, output) { 

    output$table <- renderTable({ 

     urls <- c("http://www.google.fr", "http://www.google.fr") 
     refs <- paste0("<a href='", urls, "' target='_blank'>GOOGLE</a>") 

     data.frame(refs) 

    }, sanitize.text.function = function(x) x) 

    } 
))