なぜ `<< - `を使用しているのですか？それを避けるにはどうしたらいいですか？

Question

私はHEREで議論に続き、なぜ<<-をRに惑わしているのか不思議です。それはどのような混乱の原因になりますか？

また、どうすれば避けることができるかについてのヒントをお聞きしたいと思います。<<-私は次のことを頻繁に使用します。たとえば：

### 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は1秒となり、すべての3Sは、など。したがって、すべてのnはn-1来ることになる2来ることでしょう。この場合

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

、どのように私は<<-を避けることができます。私は、次のことで、これを実現しますか？ kohskeが指摘するように、それがない限り、トップの環境に割り当てるので、あなたは、約（グローバルアサインメントとして<<-と考えることができ

df.rescaled <- sapply(...) 

Answer 1

まずポイント

<<-は、グローバル変数に割り当てるませ演算子です。変数を最も近い親環境に割り当てようとします。あなたがReduceを使用していることを行うことができます

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

2点目

、その後、

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

：

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

：理想的には私はの線に沿って別の変数にsapply結果パイプにできるようにしたいでしょう変数名はより近位の環境に存在します）。これが悪い理由の例はここにある：

Examples of the perils of globals in R and Stata