ich würde gern meine angezeigten Daten per Buttons über datatable ausgeben. Allerdings werden die nötigen Buttons später im Browser nicht angezeigt. Was mache ich falsch? Wenn ich die einfachen Buttons ohne Html5 nutze, klappt es.
Code im server.r
Code: Alles auswählen
# Output "Uebersicht " ----------------------------------------------------
db2_subset <- reactive({
a = datatable(db2, extensions = c('Buttons', 'ColReorder','FixedHeader','KeyTable', 'RowReorder'),
filter = list (position = 'top'),
escape = FALSE,
options = list(
searchHighlight = TRUE,
pageLength = 10,
colReorder = TRUE,
fixedHeader = TRUE,
rowReorder = TRUE,
keys = TRUE,
dom = 'Blfrtip',
buttons = list(
list(extend = 'colvis', text='Show/Hide'),
list(extend = 'excelHtml5', exportOptions = list(columns = ':visible')),
list(extend = 'pdfHtml5', orientation = 'landscape', exportOptions = list(columns = ':visible')),
list(extend = 'print', exportOptions = list(columns = ':visible'))
)))
Code: Alles auswählen
includeScript("www/jszip.js")
Über Tipps würde ich mich freuen.
Danke
Talcom