Hi,
May be this helps:
#If you are okay with compressed tar files
##If the files are all in the working directory
?vec1 <-? list.files()
vec1
#[1] "40111h162n.csv"? "40111h1n49.txt"?
"40111_h1n4.txt"? "40111h1n50.txt"
#[5] "40111h2mn52.csv"
lst1 <- split(vec1,substr(vec1,1,7))
#Create the subdirectory based on the first 7 alphanumeric prefix.
?sapply(file.path(getwd(),names(lst1)),dir.create)
#or
# sapply(seq_along(lst1),function(i) dir.create(file.path(getwd(),
names(lst1[i])))
#move the files to the sub-directory
?lapply(seq_along(lst1), function(i)
file.rename(lst1[[i]],paste(file.path(names(lst1[i])),
lst1[[i]],sep="/")))
#[[1]]
#[1] TRUE
#
#[[2]]
#[1] TRUE TRUE TRUE
#
#[[3]]
#[1] TRUE
list.files(recursive=TRUE)
#[1] "40111h1/40111h162n.csv"? "40111h1/40111h1n49.txt"
#[3] "40111h1/40111h1n50.txt"? "40111h2/40111h2mn52.csv"
#[5] "40111_h/40111_h1n4.txt"
##
#creating compressed tar file
tarF <- paste(names(lst1),"tgz",sep=".")
subDir <- list.dirs(full.names=FALSE)[-1]
?sapply(seq_along(tarF),function(i) tar(tarF[i],file.path(subDir)[i],
compression='gzip'))
#[1] 0 0 0
list.files(recursive=TRUE)
#[1] "40111h1/40111h162n.csv"? "40111h1/40111h1n49.txt"
#[3] "40111h1/40111h1n50.txt"? "40111h1.tgz"???????????
#[5] "40111h2/40111h2mn52.csv" "40111h2.tgz"???????????
#[7] "40111_h/40111_h1n4.txt"? "40111_h.tgz"????
A.K.
On Thursday, May 22, 2014 4:21 PM, mr_kirkwood <rkirkwo2 at uwyo.edu>
wrote:
I have thousands of files that need to be zipped. The files that need to be
zipped together have the same seven digit prefix e.g. 40111h1.
I am a novice at R-Studio and would appreciate some help on this matter.
Thanks!
--
View this message in context:
http://r.789695.n4.nabble.com/Zip-multiple-files-with-same-prefix-tp4691088.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.