रोकथाम ओवरराइटिंग जब बचाने() या save.image() का उपयोग कर

Question

मैं जब) को बचाने (और save.image() आर में

Answer 1

समारोह का उपयोग करके फ़ाइलें के आकस्मिक ओवरराइटिंग को रोकने के लिए एक रास्ता खोजने के लिए कोशिश कर रहा हूँ

फ़ाइल जांचने के लिए file.exists() का उपयोग करें, और यदि यह है, तो नाम के लिए एक स्ट्रिंग संलग्न करें।

संपादित करें:

धन्यवाद मारेक, मैं अपने विचार पर विस्तार करेंगे थोड़ा ... वह इस जोड़ सकता है save() और save.image() दोनों

SafeSave <- function(..., file=stop("'file' must be specified"), overwrite=FALSE, save.fun=save) { 
    if (file.exists(file) & !overwrite) stop("'file' already exists") 
    save.fun(..., file=file) 
} 

मैं बचाने के ऊपर लिख नहीं होगा से निपटने के लिए .. यदि source() का उपयोग आरईपीएल सत्र में किया गया था, तो उपयोगकर्ता फ़ंक्शन ओवरराइट से अवगत नहीं हो सकते हैं।

Answer 2

जैसा कि विन्स ने लिखा था कि आप अस्तित्व की जांच के लिए file.exists() का उपयोग कर सकते हैं।

save <- function(..., file=stop("'file' must be specified"), overwrite=FALSE) { 
    if (file.exists(file) & !overwrite) stop("'file' already exists") 
    base::save(..., file=file) 
} 

आप save.image() को बदलने के लिए समान लिख सकते हैं:

मैं मूल save समारोह को बदलने के लिए सुझाव देते हैं।