Des liens cliquables dans Brillant Datatable

J'ai créé un tableau contenant des liens HTML à l'aide de Brillant de renderDataTable. Les liens ne sont pas cliquables, si, au lieu de rendre littéralement:

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

Avez-vous une idée de ce qui pourrait être mauvais? Il fonctionnait parfaitement avant la mise à niveau de Brillant à la version 0.11... Merci!

  • inclure votre tenté de code
  • Comme je l'ai lu le code qui est poussé à mon navigateur cette ligne est en train de faire l'affichage de la zone que je pense que vous avez de la difficulté avec, ce qui me laisse croire que nous avons vraiment besoin de savoir ce qui est dans la table sous-jacente: "<div id="filtrovanaTabulka" class="shiny-datatable-sortie"></div>`
  • Merci, j'ai trouvé la solution. Le renderDataTable fonction de Shiny a un argument échapper. Il était le plus likey la valeur TRUE par défaut dans la nouvelle version. Quand je le change, il fonctionne à nouveau. Plus d'infos: shiny.rstudio.com/reference/shiny/latest/renderDataTable.html
  • Vous devriez mettre "réglage de l'échappement argument FALSE" comme une réponse. Cela a été très utile, merci!
InformationsquelleAutor Petr Kočí | 2015-01-23
  1. 38

    J'ai eu le même problème. Le escape = FALSE option pour renderDataTable résolu, comme vous l'avez mentionné dans les commentaires.

    Ici est complète de code pour une application avec une table qui a des liens.

    Si vous faites cela, vous voulez chaque lien pour être unique basé sur une valeur dans la table. Je déplace ce code dans une fonction, de sorte que son plus propre.

    #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)
    • Une note supplémentaire pour celui qui se termine ici débogage: si 'ma_table' dans cet exemple est un objet datatable, vous devez vous assurer qu'elle a fui=FALSE option (seulement pour renderDataTable coutume de travail). ensuite, une solution simple serait ma_table<-datatable(ma_table, escape=F)
    InformationsquelleAutor williamsurles