我试图以货币格式获取数字,然后围绕它们但我从DT
(v 0.1)得到意外行为。
我希望将值808084.227872401
变为£808,084.2
以下是代码:
library(DT)
m <- structure(list(A = c(808084.227872401, 1968554.9592654, 751271.053745238,
-248530.769710688, 1022891.09543523, -407303.626363765), B = c(143073.342325492,
-1440469.87343229, -590080.736184761, -608299.78907882, 1167155.65688074,
803870.898483576), C = c(-447086.9382469, 606572.488852836, 89371.3745637198,
-1496047.6143101, -410103.544644035, 1106358.3287006), D = c(0.754009573487565,
0.364774209912866, 0.525769896339625, 0.44853704655543, 0.909551323624328,
0.439131782157347), E = c(98.8604132297185, 98.9055931760521,
99.3795062166865, 98.5895350315005, 101.194549174315, 102.325111315431
)), .Names = c("A", "B", "C", "D", "E"), row.names = c(NA, -6L
), class = "data.frame")
根据documentation,这应该有效:
datatable(m) %>% formatCurrency("A", "£", digits = 1)
但是我收到以下错误:
formatCurrency(。,“A”,“£”,digits = 1)出错: unused参数(digits = 1)
然后我尝试了另一个命令:
datatable(m) %>% formatCurrency("A", "£") %>% formatRound("A", 1)
但它只是对货币进行了格式化而没有对其进行舍入。
有什么想法吗?
PS。我知道this答案,但我不想显示字符串,因为我想用datatable
显示数字。
答案 0 :(得分:2)
我的结论是,您无法在DT
的同一列中添加2个格式化程序,但当然我可能错了。
请注意,即使在DT
的文档中没有明确说明,每个列表也只能添加一个格式化程序。另请注意,对于您提供的链接中的示例,或者当您键入?formatCurrency
时,当它们包含两个管道%>%
时,它们总是会影响到两个不同的列。
在您的示例中,当您执行
时datatable(m) %>% formatRound("A", digits=1) %>% formatCurrency("A", currency="£")
结果是1位数的圆形,没有货币,如果你这样做
datatable(m) %>% formatCurrency("A", currency="£") %>% formatRound("A", digits=1)
结果是添加的货币没有舍入。
我对R如何与js集成的知识非常有限,但是查看the package in cran的R源代码,看起来管道中的每个格式命令都附加一个格式化程序,但由于某种原因,只有一个格式化程序进入发挥:
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)
(但是这不会每3位数添加,
,如果你真的需要它,我可以将它添加到格式化程序中......)
EDIT2 :
这将是使用货币和数字位数的格式化程序功能,加上&#39;,&#39;标志:
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)
答案 1 :(得分:1)
经过一些研究,我发现formatCurrency()
将代码更改为以下内容将解决此问题:
datatable(m) %>% formatCurrency("A", '\U20AC', digits = 1)