在DT中四舍五入货币格式的数字

我的结论是，您不能在的同一列中添加2个格式化程序DT，尽管我当然可能错了。

请注意，即使在的文档中未明确说明，DT每个列表也只能添加一个格式化程序。还要注意，在您提供的链接中的示例上，或者当您键入时?formatCurrency，当它们包括两个管道时%>%，它们总是会影响到两个不同的列。

在您的示例中，当您执行

datatable(m) %>% formatRound("A", digits=1) %>% formatCurrency("A", currency="£")

结果将舍入为1位无货币的数字，如果这样做

datatable(m) %>% formatCurrency("A", currency="£") %>% formatRound("A", digits=1)

结果是添加的货币没有四舍五入。

我对R如何与js集成的知识非常有限，但查看cran中软件包的R源，看起来管道中的每个format命令都附加了一个formatter，但由于某种原因，只有一个formatter起作用：

formatCurrency = function(table, columns, currency = '$', interval = 3, mark = ',') {
  formatColumns(table, columns, tplCurrency, currency, interval, mark)
}

formatRound = function(table, columns, digits = 2) {
  formatColumns(table, columns, tplRound, digits)
}

formatColumns = function(table, columns, template, ...) {
  ...
  x$options$rowCallback = appendFormatter(
    x$options$rowCallback, columns, colnames, rownames, template, ...
  )
  ...
}

appendFormatter = function(js, name, names, rownames = TRUE, template, ...) {
  ...
  JS(append(
    js, after = 1,
    template(i, ...)
  ))
}

其中每个格式化程序最终都会调用formatColumns不同的template，并i解析该列的ID。如我所说，我不知道这是因为追加操作会覆盖格式化程序，还是因为它与执行有关。

编辑：对不起，我不小心按下了发布按钮并被插上了。我实际上实现了一个带更多参数的格式化程序。该解决方案有点令人费解，但它可行。这是既接受货币又接受数字的格式化程序：

tplRound2 = function(cols, currency, digits) {
  sprintf(
    "var d = parseFloat(data[%d]); $(this.api().cell(row, %s).node()).html(isNaN(d) ? '' : '%s' + d.toFixed(%d).toString());",
    cols, cols, currency, digits
  )
}

您需要将所有这些功能添加到会话中：

formatRound2 = function(table, columns, currency, digits = 2) {
  formatColumns2(table, columns, tplRound2, currency, digits)
}

formatColumns2 = function(table, columns, template, ...) {
  if (inherits(columns, 'formula')) columns = all.vars(columns)
  x = table$x
  colnames = base::attr(x, 'colnames', exact = TRUE)
  rownames = base::attr(x, 'rownames', exact = TRUE)
  x$options$rowCallback = appendFormatter2(
    x$options$rowCallback, columns, colnames, rownames, template, ...
  )
  table$x = x
  table
}

name2int = function(name, names) {
  if (is.numeric(name)) {
    return(if (all(name > 0)) name else seq_along(names)[name])
  }
  names = setNames(seq_along(names), names)
  unname(names[name])
}

appendFormatter2 = function(js, name, names, rownames = TRUE, template, ...) {
  js = if (length(js) == 0) c('function(row, data) {', '}') else {
    unlist(strsplit(as.character(js), '\n'))
  }
  i = name2int(name, names)
  if (is.character(name) || (is.numeric(name) && !rownames)) i = i - 1
  if (any(is.na(i))) stop(
    'You specified the columns: ', paste(name, collapse = ', '), ', ',
    'but the column names of the data are ', paste(names, collapse = ', ')
  )
  JS(append(
    js, after = 1,
    template(i, ...)
  ))
}

然后，您可以使用新的格式化程序运行以获得所需的结果：

datatable(m) %>% formatRound2("A", "£", digits=1)

（但是，这不会将,每三位数字相加，如果您确实需要，我可以将其添加到格式化程序中...）

注释后的EDIT2：

这将是使用货币和数字位数以及'，'标记的格式化程序功能：

tplRound3 = function(cols, currency, digits, interval, mark) {
  sprintf(
    "var d = parseFloat(data[%d]); $(this.api().cell(row, %s).node()).html(isNaN(d) ? '' : '%s' + d.toFixed(%d).toString().replace(/\\B(?=(\\d{%d})+(?!\\d))/g, '%s'));",
    cols, cols, currency, digits, interval, mark
  )
}


formatRound3 = function(table, columns, currency, digits = 2, interval=3, mark=',') {
  formatColumns2(table, columns, tplRound3, currency, digits, interval, mark)
}

为了使用它，只需键入

datatable(m) %>% formatRound3("A", "£", digits=1)