página - hipervinculos en html ejemplos

Rshiny- Cómo crear una tabla con hipervínculo cliqueable

Question

Tengo un marco de datos R, que se muestra en la salida RShiny llamada por renderDataTable. Sin embargo, no puedo implementar etiquetas simples de Java o html que me ayuden a hacer lo siguiente.

Ejemplo: (Estoy insertando el código server.ui, teniendo en cuenta que estos parámetros deben establecerse en server.ui end). Para simplificación, representa solo 2 filas. mydataframe

Col1 Col2 Col3
Google 5 lines description www.google.com
Yahoo 5 lines description www.yahoo.com

El objetivo es

1. La salida de rederDataTable es brillante, de modo que "Google" y "Yahoo" son etiquetas clicables, con sus enlaces (Colm 3) guardados en ellos. Por lo tanto, reduciendo 3 columnas a 2.

Su ayuda y sugerencias son muy apreciadas.

output$PM_output <- renderDataTable(expr = mydataframe),
options = list(autoWidth = T,
LengthMenu = c(5, 30, 50),
columnDefs = list(list(targets = c(6,7,8,9) - 1,
searchable = F)),
pageLength = 5,
selection = ''multiple''))

Answer 1

Puede usar el argumento escape para datatables, ver https://rstudio.github.io/DT/#escaping-table-content .

shinyApp(
shinyUI(
fluidPage(
dataTableOutput(''PM_output'')
)
),
shinyServer(function(input, output, session) {
require(DT)
dat <- read.table(text="Col1 Col2 Col3
Google ''5 lines description'' www.google.com
Yahoo ''5 lines description'' www.yahoo.com", header=T, strings=F)
dat$Col3 <- sapply(dat$Col3, function(x)
toString(tags$a(href=paste0("http://", x), x)))
output$PM_output <- renderDataTable(expr = datatable(dat, escape=FALSE),
options = list(autoWidth = T))
})
)

la configuración de escape=3 (el número de columna) también parece funcionar, o pasar el argumento de escape a renderDataTable .