如何在闪亮中使用姓氏？

Question

我有一个问题，关于如何在Shiny的服务器功能中使用“ colnames”。我已经下载了一个数据框，该数据框取决于日期参数（我要选择数据的日期范围）。因此，在下载数据时，我想更改其列名，以便对服务器功能内部的数据做更多的事情。我还想显示列名已更改的数据。

我已经尝试过了：

ui = fluidPage(
  dateInput('date','Select date'),
  tableOutput('table')
)

server <- function(input,output){
date <- reactive({input$date})
data <- reactive({#Here I download data from Google Analytics with the selected date})

output$table <- renderTable({
    colnames(data()) <- c('date','transactions')
    head(data)})
}

但是出现以下错误：

Error in colnames(data()) <- c("date", "transactions") : 
left side of the assignment is invalid (NULL)

如何在每次更改日期范围时显示数据以向我显示相应的表？

谢谢！