関数内から.GlobalEnv内のオブジェクトを削除する

Question

基本的にremove/rmを呼び出し、.GlobalEnvから特定のオブジェクトを削除する関数（CleanEnvir）を作成したいと思います。

CleanEnvir <- function(pattern = "tmp"){ 
     rm(list = ls(envir=globalenv())[ 
      grep("tmp", ls(envir=globalenv()))], envir = globalenv()) 
    } 

Answer 1

ls()ニーズが正しい場所に見て：

CleanEnvir <- function(pattern = "tmp"){ 
     rm(list = ls()[grep("tmp", ls())], envir = globalenv()) 
    } 

    keep <- 1 
    tmp.to.be.removed <- 0 
    ls() 

    ## does not work 
    CleanEnvir() 
    ls() 

    ## does work 
    rm(list = ls()[grep("tmp", ls())], envir = globalenv()) 
    ls() 

Answer 2

あなたは世界のEnvで検索を行うだけでなく、そこに除去する必要があります。デフォルトでは、現在のフレーム内では、関数CleanEnvirのケースが表示され、元の画像には"pattern"しか見つかりませんでした。

与え

CleanEnvir <- function(pattern = "tmp") { 
    objs <- ls(pos = ".GlobalEnv") 
    rm(list = objs[grep("tmp", objs)], pos = ".GlobalEnv") 
} 

：私はこのためだ

> CleanEnvir <- function(pattern = "tmp") { 
+  objs <- ls(pos = ".GlobalEnv") 
+  rm(list = objs[grep("tmp", objs)], pos = ".GlobalEnv") 
+ } 
> ls() 
[1] "CleanEnvir"  "foo"    "keep"    
[4] "tmp.to.be.removed" 
> CleanEnvir() 
> ls() 
[1] "CleanEnvir" "foo"  "keep" 

Answer 3

最短コードソリューションは、このいずれかになります。変数を貼り付けるために、代替逆パース

y <- TRUE 

CleanEnvir <- function(x) {rm(list=deparse(substitute(x)),envir=.GlobalEnv)} 

CleanEnvir(y) 
y 

：

特定の変数を削除その値ではなく名前が であり、確かにpos = ".GlobalEnv"が動作しますしかし、単純にenvir = .GlobalEnvを使用することもできます。

解決策2：実際にパターンマッチングが可能です。私はtmp1とtmp2を削除したいのですが、Global.tmpとlocaltmpという名前の別の変数があるのを忘れてしまいました。 。。！パターンによる例

削除：

myvar1 <- TRUE 
myvar2 <- FALSE 

Pat.clean.Envir <- function(x) { rm(list = ls(.GlobalEnv)[grep(deparse(substitute(x)), ls(.GlobalEnv))], envir = .GlobalEnv) } 

Pat.clean.Envir(myvar) 

歓声