Как получить глобальную переменную в функции r

Question

Здесь я использую временную шкалу данных как глобальную переменную, используя «< < -« symbol.I ожидал получить значения глобальных изменений значений переменных, влияющих на каждую функцию. Но это не работает.

мой код

vf<-function() 
{ 
    df<<-data.frame(A=c(2),B=c(3)) 
    vk(df) 
    print(df) 
} 

vk<-function(df) 
{ 
    lk<-data.frame(C=c(3),D=c(4)) 
    df<<-cbind(df,lk) 
} 

ничего не произошло после вызова функции.

ожидается выход

>vf() 
A B C D 
2 3 3 4 

, как это исправить?

Answer 1

На самом деле ваш код отлично работает :-) Единственная часть, которую вы пропустите, если вы хотите использовать глобальную переменную, вы должны объявить ее глобально.

Вот мой результат:

> df <- NULL 
> vf <- function() 
{ 
    df <<- data.frame(A=c(2),B=c(3)) 
    vk(df) 
    print(df) 
} 
> vk <- function(df) 
{ 
    lk <- data.frame(C=c(3),D=c(4)) 
    df <<- cbind(df,lk) 
} 
> vf() 
    A B C D 
1 2 3 3 4 

Так что вы пропустите это добавить df <- NULL декларацию

---

Вы можете сделать то же самое ж/оа глобальной переменной, это немного чище:

vf <- function() 
{ 
    df <- data.frame(A=c(2),B=c(3)) 
    vk(df) # Same as 'return(vk(df))' 
} 

vk <- function(df) 
{ 
    lk <- data.frame(C=c(3),D=c(4)) 
    cbind(df,lk) # Same as 'return(cbind(df,lk))' 
} 

vf() # Returns value, not stored --> printed on the output 
newGlobal <- vf() # Stores the value returned by vf() 

Кстати, если вас интересует R, вы можете найти список великих книг об общих сниппетов и ловушки здесь:

http://xcafebabe.blogspot.hu/2011/09/free-r-book-collection.html