How to solve: error in file(file, "rt") : invalid 'description' argument

Hi thank you in advance for your assistance.?

I am using the following section of script:?

DirPath_folder?
<-Sys.glob(file.path("/Users/catpeters/Documents/R_working_directory/1_Data_MC_Sorted"))?

for (folder in 1: length(DirPath_folder)) {?

# ## EVERY Control and Impact #?
DirPath_Matrix <-Sys.glob(file.path(DirPath_folder[folder],?
"*Markov_Matrix_Month.txt"))?

data <- read.table(DirPath_Matrix, header = TRUE, sep = ";")?

if (folder ==1) { DATA_ALL1 <- data } else { DATA_ALL1 <- rbind(DATA_ALL1,?
data) }?

if (folder == length(DirPath_folder)) {?
setwd("/Users/catpeters/Documents/R_working_directory/1_Data_MC_Sorted")?
write.table(DATA_ALL1 ,"Matrix_Markov_ALL_MONTH_RB.txt" , col.names=TRUE,?
row.names=FALSE, sep=";") write.table(DATA_ALL1?
,"Matrix_Markov_ALL_MONTH_RB.csv" , col.names=TRUE, row.names=FALSE,?
sep=";") } }?

There seems to be a problem with: data <- read.table(DirPath_Matrix, header?
= TRUE, sep = ";"). When run it returns the Error in file(file, "rt") :?
invalid 'description' argument. This has worked previously and I'm not sure?
where the error is.?

Thanks again?