30 lines
562 B
R
30 lines
562 B
R
# Delete 1st rows of forceps EXPORTS
|
|
|
|
################################################################################
|
|
|
|
# 1. LOAD DATA ----
|
|
|
|
# select folder
|
|
dirs <- "PYR18"
|
|
dirs
|
|
|
|
# list files
|
|
files <- list.files(getwd(), full.names = FALSE, recursive = T, pattern = dirs)
|
|
files
|
|
|
|
# complete_export_list <-
|
|
# lapply(files, read.csv, sep = "\t")
|
|
|
|
|
|
for (i in 1:length(files)) {
|
|
print(i)
|
|
write.table(
|
|
read.delim(files[i], comment.char = '#', header = F, fill = T),
|
|
file = files[i],
|
|
row.names = FALSE,
|
|
col.names = FALSE,
|
|
sep = "\t"
|
|
)
|
|
|
|
}
|