r - 在输出到 Shiny 应用程序之前更改 DT 包中的列名

Question

在将数据输出到 Shiny 应用程序之前，我想在最后一步更改数据的列名。显示名称很长，我不想在操作数据表时更改它们。在我的实际数据集中，数据表的格式更改比下面的要多得多。

这是一个虚拟数据集:

library(DT)
test.df <- data.frame(a = runif(10), b = 21:20, c = 31:30, d = 31:40)
test.dt <- datatable(test.df) %>% formatPercentage('a', 0) %>% formatCurrency('c', '$')

现在，我如何将列名更改为 c('Col1', 'Col2', 'Col3', 'Col4')？同样，我希望这是我用 renderDataTable 输出数据表之前的最后一步。功能。

如果有一种方法可以创建列别名而不是更改实际的列名，那也可以。

Answer 1

只需使用 colnames datatable 的论据.这只会更改显示名称，因此您仍然可以在格式化代码中使用原始列名称。

test.dt <- datatable(test.df, colnames=c("aa", "cc")) %>% formatPercentage('a', 0) %>% formatCurrency('c', '$')