不带格式R的DT导出

我正在使用按钮扩展名

DT

导出数据。单击

copy

或

excel

或

pdf

时，也会导出格式

DT

0.14版包含与旧版本0.5相反的格式，而旧版本是所需的组件

可复制示例，

Sepal.Width

列，表中单位为米，我不想导出：

library(shiny)
library(DT)

ui <- fluidPage(
    dataTableOutput("dt_table")
)

server <- function(input, output) {

    output$dt_table <- renderDataTable({
        datatable(
            iris,
            options = list(dom = 'lBfrtip', buttons = c('copy','excel', 'pdf')),
            extensions = 'Buttons'
        ) %>% formatString(
            columns = 'Sepal.Width',
            suffix = " meters"
        )
    })
}

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（DT）
ui以下是一种方法：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("dt_table")
)

render <- c(
  "function(data, type, row, meta){",
  "  if(type === 'display'){",
  "    return data + ' meters';",
  "  }else{",
  "    return data;",
  "  }",
  "}"
)

server <- function(input, output) {
  
  output$dt_table <- renderDT({
    datatable(
      iris,
      options = list(
        dom = 'lBfrtip', 
        buttons = list(
          list(
            extend = "copy",
            exportOptions = list(orthogonal = "export")
          ),
          list(
            extend = "excel",
            exportOptions = list(orthogonal = "export")
          ),
          list(
            extend = "pdf",
            exportOptions = list(orthogonal = "export")
          )
        ),
        columnDefs = list(
          list(targets = 2, render = JS(render))
        )
      ),
      extensions = 'Buttons'
    )
  })
  
}

shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（DT）
ui可能带有
formatString
函数中的
appendTo=“rowCallback”
选项。在导出时工作，但在导出时会丢失单位。Close@Clemsang很抱歉我刚刚编辑了我的答案。现在应该可以用了，谢谢。我有不同的单位，
formatString
如果你知道一种继续使用它的方法（我的代码中也有formatDate）会更容易一些。@Clemsang查看我的编辑。使用
formatString2
和
formatDate2
。您还必须像我一样设置
按钮
选项（使用
导出选项
）。如果在没有js的纯R DT中使用它，那就太好了，现在还没有。重载函数似乎有点过火，但它会起作用。非常感谢您的时间。@Clemsang我建议
DT
作者在
DT
的下一版本中包含这些修改。如果它们接受，则不需要使用这些自定义函数。但他们似乎在霍利迪。
tplString2 <- function(prefix, suffix, ...) {
  sprintf(
    "type === 'display' ? DTWidget.formatString(data, %s, %s) : data;",
    DT:::jsValues(prefix), DT:::jsValues(suffix)
  )
}

formatString2 <- function(table, columns, prefix = '', suffix = '') {
  DT:::formatColumns(table, columns, tplString2, prefix, suffix)
}

tplDate2 <- function(method, params, ...) {
  params = if (length(params) > 0) paste(',', jsonlite::toJSON(params)) else ''
  sprintf(
    "type === 'display' ? DTWidget.formatDate(data, %s%s) : data;", 
    DT:::jsValues(method), params
  )
}

formatDate2 <- function(table, columns, method = 'toDateString', params = NULL) {
  if (!inherits(table, 'datatables'))
    stop("Invalid table argument; a table object created from datatable() was expected")
  x = table$x
  if (x$filter != 'none') {
    if (inherits(columns, 'formula')) columns = all.vars(columns)
    colnames = base::attr(x, 'colnames', exact = TRUE)
    rownames = base::attr(x, 'rownames', exact = TRUE)
    if (is.null(params)) params = list()
    cols = sprintf("%d", DT:::name2int(columns, colnames, rownames))
    x$filterDateFmt = as.list(x$filterDateFmt)
    for (col in cols) x$filterDateFmt[[col]] = list(
      method = method, params = jsonlite::toJSON(params)
    )
    table$x = x
  }
  DT:::formatColumns(table, columns, tplDate2, method, params)
}

library(shiny)
library(DT)

server <- function(input, output) {
  
  output$dt_table <- renderDT({
    datatable(
      iris,
      options = list(
        dom = 'lBfrtip', 
        buttons = list(
          list(
            extend = "copy",
            exportOptions = list(orthogonal = "export")
          ),
          list(
            extend = "excel",
            exportOptions = list(orthogonal = "export")
          ),
          list(
            extend = "pdf",
            exportOptions = list(orthogonal = "export")
          )
        )
      ),
      extensions = 'Buttons'
    ) %>% 
     formatString2(columns = 1, suffix = " meters")
  })
  
}