R: définir une fonction dans une fonction

Question

(sur le langage R)

J'essayais de déclarer/définir une fonction, dans une autre fonction. Cela ne semble pas fonctionner. Je ne pense pas que ce soit exactement un bug, c'est probablement un comportement attendu, mais je voudrais comprendre pourquoi! Toute réponse liée à des pages de manuel pertinentes est également la bienvenue.

Merci

code:

fun1 <- function(){ 
    print("hello") 
    fun2 <- function(){ #will hopefully define fun2 when fun1 is called 
    print(" world") 
    } 
} 

fun1() #so I expected fun2 to be defined after running this line 
fun2() #aaand... turns out it isn't 

Exécution:

> fun1 <- function(){ 
+ print("hello") 
+ fun2 <- function(){ #will hopefully define fun2 when fun1 is called 
+  print(" world") 
+ } 
+ } 
> 
> fun1() #so I expected fun2 to be defined after running this line 
[1] "hello" 
> fun2() #aaand... turns out it isn't 
Error : could not find function "fun2" 

Answer 1

Cela fonctionne comme prévu, mais est généralement considéré comme une mauvaise pratique dans R:

fun1 <- function(){ 
    print("hello") 
    fun2 <<- function(){ #will hopefully define fun2 when fun1 is called 
    print(" world") 
    } 
} 

où JE <- à <<- dans la ligne 3 de la définition de fonction. Exécution:

> fun1 <- function(){ 
+  print("hello") 
+  fun2 <<- function(){ #will hopefully define fun2 when fun1 is called 
+   print(" world") 
+  } 
+ } 
> 
> fun1() 
[1] "hello" 
> fun2() 
[1] " world" 

Answer 2

une autre façon, si pour « fun1 » pour revenir une fonction que vous attribuez à « fun2 »:

> fun1 <- function(){ 
+ print("hello") 
+ # return a function 
+ function(){ # function to be returned 
+  print(" world") 
+ } 
+ } 
> fun2 <- fun1() # assign returned function to 'fun2' 
[1] "hello" 
> fun2() 
[1] " world"