`<< - 'का उपयोग क्यों कर रहा है और मैं इससे कैसे बच सकता हूं?

Question

मैंने HERE पर चर्चा का पालन किया और उत्सुक हूं कि <<- का उपयोग क्यों कर रहा है आर में किस तरह का भ्रम पैदा होगा?

मैं भी मैं <<- कैसे बच सकते हैं पर कुछ सुझाव चाहते हैं। मैं अक्सर निम्नलिखित का उपयोग करता हूं। उदाहरण के लिए:

### Create dummy data frame of 10 x 10 integer matrix. 
### Each cell contains a number that is between 1 to 6. 
df <- do.call("rbind", lapply(1:10, function(i) sample(1:6, 10, replace = TRUE))) 

क्या मैं हासिल करना चाहते हैं 1 से हर नंबर नीचे शिफ्ट करने के लिए है, यानी सभी 2s 1s हो जाएगा, सभी 3s आने दिया जाएगा 2 आदि इसलिए, सभी nn-1 आने दी जाएगी।

df.rescaled <- df 
sapply(2:6, function(i) df.rescaled[df.rescaled == i] <<- i-1)) 

इस उदाहरण में, मैं कैसे <<- से बच सकते हैं: मैं का पालन करते हुए इस लक्ष्य को हासिल? आदर्श रूप में मैं पाइप करने में सक्षम की तर्ज पर एक और चर में sapply परिणाम होना चाहता हूँ जाएगा:,

df.rescaled <- sapply(...) 

Answer 1

प्रथम बिंदु

<<-नहीं ऑपरेटर वैश्विक चर के लिए आवंटित करने के लिए है। यह परिवर्तनीय को निकटतम पेरेंट वातावरण में असाइन करने का प्रयास करता है। तो, कहते हैं, इस भ्रम कर देगा:

f <- function() { 
    a <- 2 
    g <- function() { 
     a <<- 3 
    } 
} 

तो,

> a <- 1 
> f() 
> a # the global `a` is not affected 
[1] 1 

दूसरा बिंदु

आप ऐसा कर सकते हैं Reduce का उपयोग करके:

Reduce(function(a, b) {a[a==b] <- a[a==b]-1; a}, 2:6, df) 

या apply

apply(df, c(1, 2), function(i) if(i >= 2) {i-1} else {i}) 

लेकिन

बस, इस के लिए पर्याप्त है:

ifelse(df >= 2, df-1, df) 

Answer 2

आप <<- वैश्विक काम (लगभग के रूप में के बारे में सोच सकता है, क्योंकि के रूप में kohske अंक बाहर यह शीर्ष पर्यावरण जब तक करने के लिए प्रदान करती है परिवर्तनीय नाम एक अधिक समीपवर्ती वातावरण में मौजूद है)। क्यों यह बुरा है के उदाहरण यहां हैं:

Examples of the perils of globals in R and Stata