ajouter les possiblités d'export tableaux

[pslebre]

downloadthis::

[pslebre]

1. Possibilité de passer par Datatable

tab %>%
  formattable() %>%
  as.datatable(escape = FALSE,
               extensions = 'Buttons',
               options = list(
                 dom = 'Bfrtip',
                 buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                 scrollX = FALSE),
               rownames = FALSE)

mais moins joli et les tris fonctionnent mal

2. Passer par shiny (ajouter runtime : shiny)

## create downloadButton in Rmd document
downloadHandler(
  filename = function() { 
    paste("data-", Sys.Date(), ".csv", sep = "")
  }, 
  content = function(file) {
    write.csv(myData, file)
  },
  outputArgs = list(label = "Download .csv")
)

pas testé mais plus lourd

3. le Copier/Coller fonctionne

[pslebre]

Peut-être réglé avec crosstalk et datatable (DT) sur les tableaux EPCI et BV

[pslebre]

voir filtre sur tableaux crosstalk et DT

[pslebre]

fait en partie sur les tableaux DT filtrés. Casse le rendu des formattable