Tạo tệp zip từ các thư mục

Question

Tôi tự hỏi liệu có thể tạo tệp zip từ các thư mục hay không. Tôi có một thư mục và trong thư mục này có bốn thư mục và trong đó, có các loại tệp khác nhau. Bây giờ tôi muốn zip bốn thư mục đệ quy với các tập tin của họ.

Tôi đã thử save() và gzip() nhưng họ không làm những gì tôi muốn.

Có ai đó gợi ý cho tôi không?

Answer 1

Gói Rcompression tại Omegahat có thể thực hiện điều đó. Dưới đây là ví dụ tối thiểu:

library(Rcompression) 
d <- "C:/my_data" 
files <- list.files(d, recursive=TRUE) 
zip("myarchive.zip", files=paste(d, files, sep="/"), altNames=files) 

Xem ?zip để biết thêm ví dụ.

Answer 2

Bạn có thể tìm kiếm các mẹo trong các nguồn của odfWeave package.

Nếu bạn tải thư viện và nhập odfWeave, bạn sẽ nhận được nguồn, không quá dài và thực hiện nén và giải nén cũng với các cuộc gọi hệ thống.

Từ nguồn theese, bạn có thể làm một cái gì đó như:

filename = '' # set archive filename 
loc = ''  # set location, if not done before 
setwd(loc) 
zipCmd = paste("zip -r ", filename, " .", sep='') 
system(zipCmd, invisible = TRUE) 

Tất nhiên, zip đều phải được cài đặt.

Answer 3

Phạm vi lệnh tar. Trong khi nó không phải là zip, một tập tin tar nén chỉ là tốt.

tarfile <- 'newfile.tgz' 
tar(tarfile,'/path/of/dir/to/tar/up',compression='gzip')