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 .