EOF-within-quoted-string.R

#EOF within quoted string
rm(list = ls())
###############################input data 
#dir_path <- "C:\\Users\\liyix\\OneDrive\\Desktop\\"
#dir_path_name <- list.files(pattern = ".*",dir_path,full.names = T, recursive = T)
#dir_path_name
######################add quote = ""
#data_1 <- read.delim(grep("skintox-rf-followup-1-2-3.txt",dir_path_name,value = T),quote = "", header = F,stringsAsFactors = F)
#dim(data_1) #[1] 2494  117
#length(unique(data_1$Accession)) #[1] 20