Quiero exportar una tabla que se muestra en una aplicación brillante usando tabla de datos a un PDF. Para este propósito, estoy usando el botón de exportación provisto por datatable, vea el código a continuación.

Sin embargo, quiero hacer una pequeña modificación a la tabla que se muestra en el PDF. Quiero agregar algo de espacio a la izquierda de la primera columna ya la derecha de la última columna.

No pude encontrar una opción de tabla de datos para controlar esto. Parece que tengo que usar la biblioteca pdfmake para especificar esto a través del argumento de customize . Puede ver algo que probé en el código a continuación, sin embargo comentado, ya que no funciona. Probé muchas otras cosas pero nada funcionó. Desafortunadamente, casi no tengo experiencia con JavaScript, por eso espero que alguien pueda ayudarme aquí.

 library(shiny) library(DT) words <- c("water", "apple", "house", "family", "basket") set.seed(42) data <- data.frame(column1 = sample(words, 10, TRUE), column2 = sample(words, 10, TRUE), column3 = sample(words, 10, TRUE)) ui <- fluidPage( DTOutput("dtable") ) server <- function(input, output, session) { output$dtable <- renderDT({ datatable(data, rownames = FALSE, extensions = "Buttons", options = list( dom = "Bfrtip", buttons = list( list( extend = "pdf", exportOptions = list(orthogonal = "export"), filename = "Filename", title = "Title", # customize = JS("function(doc) { doc.content.table.margin = [50, 0, 50, 0]; }") orientation = "landscape") ) ) ) }) } shinyApp(ui, server)