Создайте цикл для генерации имен столбцов в большом списке

Я хотел бы создать цикл, чтобы изменить имена столбцов, как показано:

a <- c("day", "month", "year", "flow")

У меня есть большой список из 6937 элементов, которые мне удалось импортировать в R:

library(tidyverse)
library(readtext)



txt_files_ls <- paste("C:/Users/obarresi/Desktop/doc osvaldo/ana_data_acquisition/data_flow-ANA/All", 
                      list.files(path = "C:/Users/obarresi/Desktop/doc osvaldo/ana_data_acquisition/data_flow-ANA/All",
                                 pattern = "*.txt"), sep = "/")

txt_files_df_list <- vector("list", length(txt_files_ls))

txt_files_df_list <- lapply(txt_files_ls, 
                            function(x){data.frame(read.table(file = x, header = F,
                                                              sep ="",colnames(x)))})

Как это сделать во всех моих df внутри моего списка:

txt_files_df_list[[1]] <- colnames(c("day", "month", "year", "flow"))

Спасибо за помощь!