Read csv files in a loop in R - r

Question

I am trying to read CSV files that are in a folder on my computer using R. This is the code I am using:
First, I create a list with the names of the files using the pattern CSV. The elements of the list are in format chr.
Second, I loop over the files and I create a data frame in R for each of the files.
files = list.files(pattern="*.csv")
> dput(files)
c("USC00020098.csv", "USC00020104.csv", "USC00020170.csv", "USC00020307.csv",
"USC00020406.csv", "USC00020482.csv", "USC00020487.csv", "USC00020490.csv",
"USC00020492.csv", "USC00020494.csv", "USC00020625.csv", "USC00020632.csv",
"USC00020670.csv", "USC00020675.csv", "USC00020678.csv", "USC00020758.csv",
"USC00020808.csv", "USC00020810.csv", "USC00021161.csv", "USC00021193.csv",
"USC00021419.csv", "USC00021614.csv", "USC00021654.csv", "USC00021749.csv",
"USC00022193.csv", "USC00022705.csv", "USC00022927.csv", "USC00023082.csv",
"USC00023185.csv", "USC00023190.csv", "USC00023448.csv", "USC00023498.csv",
"USC00023500.csv", "USC00023501.csv", "USC00023505.csv", "USC00023573.csv",
"USC00023621.csv", "USC00023643.csv", "USC00023828.csv", "USC00023926.csv",
"USC00024069.csv", "USC00024182.csv", "USC00024345.csv", "USC00024391.csv",
"USC00024453.csv", "USC00024508.csv", "USC00025312.csv", "USC00025467.csv",
"USC00025512.csv", "USC00025560.csv", "USC00025635.csv", "USC00025700.csv",
"USC00025765.csv", "USC00025780.csv", "USC00025825.csv", "USC00026037.csv",
"USC00026244.csv", "USC00026246.csv", "USC00026315.csv", "USC00026320.csv",
"USC00026321.csv", "USC00026424.csv", "USC00026476.csv", "USC00026571.csv",
"USC00026603.csv", "USC00026653.csv", "USC00026796.csv", "USC00026840.csv",
"USC00027081.csv", "USC00027131.csv", "USC00027143.csv", "USC00027281.csv",
"USC00027466.csv", "USC00027661.csv", "USC00027708.csv", "USC00027716.csv",
"USC00027720.csv", "USC00027741.csv", "USC00027876.csv", "USC00028112.csv",
"USC00028214.csv", "USC00028273.csv", "USC00028326.csv", "USC00028489.csv",
"USC00028494.csv", "USC00028499.csv", "USC00028500.csv", "USC00028647.csv",
"USC00028649.csv", "USC00028650.csv", "USC00028653.csv", "USC00028904.csv",
"USC00028940.csv", "USC00029015.csv", "USC00029158.csv", "USC00029271.csv",
"USC00029367.csv", "USC00029534.csv", "USC00029622.csv", "USC00029626.csv",
"USW00003192.csv", "USW00023183.csv", "USW00023184.csv", "USW00053019.csv",
"USW00053156.csv", "USW00053160.csv", "USW00093139.csv", "USW00093140.csv"
)
for(i in seq_along(files)){
name <- files[[i]]
y <- read.csv(file=name,header=TRUE)
assign(name,y)
}
However, I am getting the following error
Error in read.table(file = file, header = header, sep = sep, quote = quote, :
first five rows are empty: giving up
When I run for example: t <- read.csv(files[[94]],header=TRUE,sep=",") , it works properly.
Any idea why my loop is not working?