एक समारोह

Question

के भीतर से .GlobalEnv में वस्तुओं निकालें मैं एक समारोह (CleanEnvir) जो मूल रूप से कहता है हटाने/rm और जो .GlobalEnv से कुछ वस्तुओं को हटा बनाना चाहेंगे।

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

आप के साथ-साथ वैश्विक पर्यावरण में अपनी खोज कर वहाँ हटाने की जरूरत है। डिफ़ॉल्ट रूप से यह आपके मामले में फ़ंक्शन CleanEnvir फ़ंक्शन की वर्तमान फ्रेम में दिखता है और इसलिए आपके मूल में केवल "pattern" ढूंढ रहा था।

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

देता है कौन सा:

एक विशिष्ट चर को दूर:

y <- TRUE 

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

CleanEnvir(y) 
y 

deparse स्थानापन्न चर चिपकाने के लिए

> 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

सबसे छोटा कोड समाधान मैं इस के लिए मिल गया है इस एक है इसके मूल्य के बजाय नाम, और वास्तव में pos = "aborobalEnv "काम करता है है, लेकिन आप भी बस के माहौल = .GlobalEnv

समाधान 2 का उपयोग कर सकते हैं: यह वास्तव में पैटर्न मिलान के लिए अनुमति देता है। (मैं इसके खिलाफ दृढ़ता से अनुशंसा करता हूं क्योंकि आप संभवतः उन चीजों को हटा सकते हैं जिन्हें आप दुर्घटना से हटाना नहीं चाहते हैं। मैं आप tmp1 और tmp2 को हटाना चाहता हूं लेकिन आप भूल गए हैं कि एक और चर है जिसे ग्लोबल.tmp और localtmp कहा जाता है ।।! उदाहरण

निकालें पैटर्न से: - समस्याग्रस्त होने के रूप में हिस्सा Btw, दूसरा ls() ग्रेप में() भी जरूरत

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) 

चियर्स