Rで複数のCSVファイルを圧縮する方法は？

Question

Rで複数のCSVファイルを圧縮しようとしています。以下は参考用のコードです。

# Create two dataframes using inbuilt datasets for reproducible code 
df1 <- head(mtcars) 
df2 <- head(iris) 

# Write the files as CSV into working directory 
write.csv(df1, file = "Test_File1.csv", row.names = FALSE, quote = FALSE) 
write.csv(df2, file = "Test_File2.csv", row.names = FALSE, quote = FALSE) 

# Read the 2 CSV file names from working directory 
Zip_Files <- list.files(path = getwd(), pattern = ".csv$") 

# Zip the files and place the zipped file in working directory 
zip(zipfile = "TestZip", files = Zip_Files) 

以下の警告メッセージが表示されます。 Zipファイルが作成されていません。

Warning message: 
running command '"zip" -r9X "TestZip" "Test_File1.csv" "Test_File2.csv" ' had status 127 

私もCSVファイル名を読み取るために、このコマンドを試してみました：Zip_Files <- list.files(path = getwd(), pattern = ".csv$", full.names = TRUE)しかし、私はまだ上記のような警告メッセージが表示されます。私はすでにWinRARと7-Zipを私のコンピュータにインストールしています。私はRStudioの最新バージョンと一緒に、Rの最新バージョン（3.4.2 64ビット）を使用しています。私はWindows 7 x64 OSを持っています。これに関する助けは本当に感謝しています。

Answer 1

Rのzipには、ファイルを圧縮（圧縮）するコードは実際にはありません。これを行うための外部プログラムを呼び出します。 zipには、使用するプログラムとそのプログラムに与える引数を知らせなければなりません。あなたはこのように、この作品を作ることができるはずです。

zip(zipfile = "TestZip", files = Zip_Files, flags = " a -tzip", 
    zip = "C:\\Program Files\\7-Zip\\7Z") 

7Z、7zipをのコマンドラインバージョンへのパスが異なる場合は、インストールに合うように調整してください。

いくつかの説明：

zip = "C:\\Program Files\\7-Zip\\7Z"引数は、Rどのようなプログラム圧縮を行う使用するように伝えます。この場合、7Zipのコマンドラインバージョンである7Zを指していましたが、他のコマンドラインプログラムを使用して、別のプログラムを指すように変更することができます。

flags = " a -tzip"引数は、使用しているプログラムによって異なります。私はこれを7Zのために設定しました。 7Z documentationを読むと、7Zにコマンド（ "a"）とフラグ（ "-tzip"）を与える必要があることがわかります。 "a"コマンドは、これらのファイルをアーカイブに追加することを意味します。 -tzipフラグは、7Zアーカイブの代わりにzipアーカイブにすることを意味します。異なるプログラムでは、ドキュメントを読み、そのプログラムの適切なフラグを作成する必要があります。

更新：あなたは多様な顧客のマシン上でこの機能を持っている必要がある場合は、それが任意の外部プログラムを必要とし、同様の機能を提供しませんzip packageに探して検討すべきです。

Answer 2

zipパッケージをインストールして、コードで使用できます。そうすれば、あなたのコードを使用している人なら誰でも、インストールするか検索することなくファイルを圧縮することができます。

library(zip) 

# Create two dataframes using inbuilt datasets for reproducible code 
df1 <- head(mtcars) 
df2 <- head(iris) 

# Write the files as CSV into working directory 
write.csv(df1, file = "Test_File1.csv", row.names = FALSE, quote = FALSE) 
write.csv(df2, file = "Test_File2.csv", row.names = FALSE, quote = FALSE) 

# Read the 2 CSV file names from working directory 
Zip_Files <- list.files(path = getwd(), pattern = ".csv$") 

# Zip the files and place the zipped file in working directory 
zip::zip(zipfile = "TestZip", files = Zip_Files)