如何更改活动数据框中的列名？

Question

我正在调用以下函数：

output$table1 <- renderTable({
    data.frame(apply(dataSource1(), 2, function(x) max(x, na.rm = TRUE)))

    })

它正在生成一个列名为apply(dataSource1(), 2, function(x) max(x, na.rm = TRUE)的表格，如下图所示：

如何重命名列以不将函数调用显示为列名？我想将它重命名为“Value”或类似的东西。

当我尝试：

output$table1 <- renderTable({
    table_1 <- data.frame(apply(dataSource1(), 2, function(x) max(x, na.rm = TRUE)))
    colnames(table_1) <- c("", "Value")
    })

我收到错误： names' attribute [2] must be the same length as the vector [1]

Answer 1

Shiny只识别函数colnames（table_1）＆lt; -c（“”，“Value”）中的一个colname，并尝试将其分配给两列。

尝试在第一列添加名称，例如

colnames（table_1）＆lt; - c（“Units”，“Value”）

Answer 2

data.frame(Value=apply(...))解决了这个问题！

output$table1 <- renderTable({
    data.frame(Value=apply(dataSource1(), 2, function(x) max(x, na.rm = TRUE)))

    })