आर

Question

के साथ एक .7z (7-ज़िप) फ़ाइल प्रोग्रामेटिक रूप से निकालने या अनजिप करने के लिए मैं 7-ज़िप के साथ संपीड़ित कई फ़ाइलों के निष्कर्षण को स्वचालित करने की कोशिश कर रहा हूं। मुझे इस प्रक्रिया को स्वचालित करने की आवश्यकता है, क्योंकि ए) कई वर्षों के डेटा हैं जिन्हें मैं अनलॉक करना चाहता हूं और बी) मैं अपना कोड दूसरों के साथ साझा करना चाहता हूं और उन्हें प्रक्रिया को दोहराने से रोकना चाहता हूं।

मेरे पास मेरे कंप्यूटर पर WinRAR और 7-ज़िप दोनों स्थापित हैं, और मैं इन फ़ाइलों को आसानी से किसी भी प्रोग्राम के साथ खोल सकता हूं।

मैंने unzipuntar और unz आदेशों पर चारों ओर देखा है, लेकिन मुझे विश्वास नहीं है कि उनमें से कोई भी मुझे जो चाहिए वह करें।

मैं संपीड़न बारे में कुछ पता नहीं है, लेकिन अगर यह किसी भी फर्क नहीं पड़ता: इन फ़ाइलों में से प्रत्येक केवल एक फ़ाइल होता है और यह सिर्फ एक पाठ फ़ाइल है।

मैं दृढ़ता से है, हालांकि मैं स्वीकार करते हैं इस कार्य को केवल आर और क्रैन संकुल के साथ असंभव हो सकता है एक समाधान है कि (WinRAR या 7-पिन की तरह) अतिरिक्त सॉफ्टवेयर स्थापित करने और shell के साथ एक कमांड निष्पादित करने के लिए उपयोगकर्ता की आवश्यकता नहीं है पसंद करेंगे। मुझे वास्तव में विश्वास है कि shell.exec इन फ़ाइलों पर अतिरिक्त पैरामीटर के साथ WinRAR स्थापित कंप्यूटर पर काम कर सकता है, लेकिन फिर से, यदि संभव हो तो मैं उस इंस्टॉलेशन से बचना चाहूंगा। :)

नीचे दिए गए कोड को चलाने से मैं उन फ़ाइलों को लोड करूँगा जिन्हें मैं निकालने का प्रयास कर रहा हूं - files.data में .7z फ़ाइलों को अनलॉक करने की आवश्यकता है।

# create a temporary file and temporary directory, download the file, extract the file to the temporary directory 
tf <- tempfile() ; td <- tempdir() 
file.path <- "ftp://ftp.ibge.gov.br/Orcamentos_Familiares/Pesquisa_de_Orcamentos_Familiares_2008_2009/Microdados/Dados.zip" 
download.file(file.path , tf , mode = "wb") 
files.data <- unzip(tf , exdir = td) 

# how do i unzip ANY of these .7z files? 
files.data 

धन्यवाद !!! :)

Answer 1

आप अपने रास्ते में 7z निष्पादन योग्य है, तो आप सरल उपयोग system आदेश

system('7z e -o <output_dir> <archive_name>')

Answer 2

यह archive package साथ किया जा सकता कर सकते हैं।

library(archive) 
tf <- tempfile() ; td <- tempdir() 
file.path <- "ftp://ftp.ibge.gov.br/Orcamentos_Familiares/Pesquisa_de_Orcamentos_Familiares_2008_2009/Microdados/Dados.zip" 
download.file(file.path , tf , mode = "wb") 
archive(tf) 

https://github.com/jimhester/archive