How to process a list of .csv dataframe

Sorry for newbie question here, What happened is I wrote a series of code to process one .csv data frame.

Here is what code (sample version)looks like:

MyFile <- read.csv(tk_choose.files(caption = "Choose CSV files from directory",),header = TRUE)%>% # 
 Select Input CSV Data
 transmute(A)%>% 
 summarise_all(sum,)%>%
 write.csv(file = choose.files()) # Output As CSV File)

and here is what output looks like in the Output CSV file:

But now I need to apply those series of code to a list of .csv data instead of one.

I managed to use the code:

temp = tk_choose.files(caption = "Choose CSV files from directory",)
myfiles = lapply(temp, read.delim)

to import those .csv files as a list, but is there any way that I can apply the same code (ie.

transmute(A)%>% 
summarise_all(sum,)%>%

) to all the .csv files in the list and combine the result together? (ie.

            A
file1   658839755
file2   1541654313
file3   4643213843

)

Thank you