如何更改反应式数据框中的列名？

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) ，如下图所示：

如何重命名列以不将函数调用显示为列名？ 我想将其重命名为“值”或类似的名称。

当我尝试：

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）<-c（“”，“ Value”）中的一个名称，并尝试将其分配给两列。

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

colnames（table_1）<-c（“单位”，“值”）

Answer 2

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

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

    })