Collegamenti selezionabili in Shiny Datatable

Question

Ho creato una tabella contenente alcuni collegamenti HTML utilizzando il renderingDataTable di Shiny. I collegamenti non sono cliccabili, però, invece rendono letteralmente:

https://samizdat.shinyapps.io/zakazky/

Avete idea di quello che potrebbe essere sbagliato? Ha funzionato bene prima di aggiornare Shiny alla versione 0.11 ... Grazie!

Answer 1

Ho avuto lo stesso problema. L'opzione escape = FALSE per renderDataTable l'ha risolto, come hai menzionato nei commenti.

Ecco il codice completo per un'app con una tabella con collegamenti.

Se si esegue questa operazione, si desidera che ciascun collegamento sia univoco in base a un valore nella tabella. Sposto questo codice in una funzione in modo che sia più pulito.

#app.R# 

library(shiny) 

createLink <- function(val) { 
    sprintf('<a href="https://www.google.com/#q=%s" target="_blank" class="btn btn-primary">Info</a>',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({ 

    my_table <- cbind(rownames(mtcars), mtcars) 
    colnames(my_table)[1] <- 'car' 
    my_table$link <- createLink(my_table$car) 
    return(my_table) 

    }, escape = FALSE) 
} 

shinyApp(ui, server)