Converti una colonna di URL di testo in collegamenti ipertestuali attivi in ​​Shiny

Question

Sto creando un'interfaccia utente per un programma di arricchimento del percorso. I risultati sono mostrati in una tabella come mostrato di seguito.

Qui di seguito è un frammento che mostra che sto usando DT :: renderDataTable e DT :: datatable per emettere il tavolo in una scheda. spia_out() è solo una funzione reattiva che esegue l'arricchimento del percorso e produce un dataframe.

spia_out <- reactive({ 
    ...get results in a dataframe... 
    }) 

output$spiaout <- DT::renderDataTable({ 
     DT::datatable(spia_out(), extensions = ..., options = ...) 
    }) 

Tutto funziona bene, la tabella percorso arricchimento viene generato & stampato nell'elemento utente corrispondente. Il mio unico problema è come convertire l'ultima colonna (KEGGLINK) degli URL in hyperlink attivi? In modo che le persone possano semplicemente fare clic su di essi anziché copiare & incollando.

Ci scusiamo in anticipo per le dimensioni dello screenshot. Spero che tu possa vedere l'ultima colonna KEGGLINK ha URL ma non sono attivi.

Answer 1

Hai bisogno di fare due cose:

1. Modificare l'ultima colonna in modo che il KEGGLINK si trasforma in una vera e propria link HTML che assomiglia: <a href='url'>link text</a>.

2. Passa DT l'argomento escape = FALSE in modo che non sfugga al codice HTML.

La pagina Web DT ha un esempio di questo nella sezione 2.9: https://rstudio.github.io/DT/

Un modo semplice per farlo # 1 sarebbe qualcosa di simile:

mydata$url <- paste0("<a href='",mydata$url,"'>",mydata$url,"</a>") 

Answer 2

In alternativa, è anche possibile per mantenere intatto il dataframe originale e indicare dataTable su come eseguire il rendering di una colonna. Vedere la sezione 4.4 Rendering delle colonne nello DT docs.