Utilisation de la fonction rm en multi environnement

Version imprimable

Bonjour,

Je bloque sur un truc assez con, et je n'arrive pas à me convaincre qu'il n'y a pas de solutions.

Voici mon cas :

J'ai une fonction qui me permet de sauvegarder mes matrices sur un réseau lambda (fonction déclarer dans un fichier source) :

Code:

MatrixSave(rmend=TRUE,M,"MktVal",OutMat)

M est la matrice que je souhaite sauvegarder, "MktVal" est le nom que je vais donner au Rdata et Out Mat est le directory.

Mon truc c'est que j'aimerais qu'une fois sauvée cette fonction supprime, dans l'env ou j'appel la fonction, la matrice M une fois la sauvegarde faîte. (afin de nettoyer la mémoire car mes matrices sont grosses et nombreuses)

Voici le code de ma fonction :
Code:

1 2 3 4 5 6 7 8 9 10 11 MatrixSave2 = function(rmend=FALSE,dta,matrixname,directory) { fn <- file.path(directory, paste(matrixname, "RData", sep = ".")) save(dta, file = fn) if(rmend){ rm(dta, pos=".GlobalEnv") gc(verbose = FALSE) } }
Le hic c'est que j'ai ce message d'erreur :

Code:

In rm(dta, pos = ".GlobalEnv") : variable "dta" was not found

Je comprends bien que dans l'env global la matrice ne s'appelle dta mais M, alors comment faire comprendre que c'est M que je veux supprimer ?

Merci d'avance pour votre aide

Yeahhhhhh

J'ai trouvé, voici le bout de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
MatrixSave2 = function(rmend=FALSE,dta,matrixname,directory) {
 
  fn <- file.path(directory, paste(matrixname, "RData", sep = "."))
  save(dta, file = fn)
 
  if(rmend)
  {
    rm(list=deparse(substitute(dta)), pos=".GlobalEnv")
    gc(verbose=FALSE)
    #MatrixClosed(dta)
  }
}

Thanks

Encore mieux, en cherchant l’environnement parent de la fonction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
MatrixSaveRm = function(rmend=FALSE,dta,matrixname,directory) {
 
  fn <- file.path(directory, paste(matrixname, "RData", sep = "."))
  save(dta, file = fn)
 
  if(rmend)
  {
    rm(list=deparse(substitute(dta)), pos=parent.env(environment(fun = NULL)))
    gc(verbose=FALSE)
    #MatrixClosed(dta)
  }
}