xóa tất cả các biến ngoại trừ chức năng

Question

Tôi đã tải trong một loại bàn điều khiển R khác nhau của các đối tượng. tôi có thể loại bỏ tất cả chúng sử dụng

rm(list=ls()) 

hoặc loại bỏ chỉ các chức năng (nhưng không phải là biến) sử dụng

rm(list=lsf.str()) 

Câu hỏi của tôi là: là có một cách để loại bỏ tất cả các biến ngoại trừ chức năng

Answer 1

Dưới đây là một lớp lót loại bỏ tất cả các đối tượng ngoại trừ chức năng:

rm(list = setdiff(ls(), lsf.str())) 

Nó sử dụng setdiff để tìm các tập hợp con của các đối tượng trong môi trường toàn cầu (như trả về bởi ls()) mà không có chế độ function (như trả về bởi lsf.str())

Answer 2

Các posted setdiff Câu trả lời là tốt đẹp. Tôi chỉ nghĩ rằng tôi sẽ gửi chức năng liên quan này tôi đã viết một thời gian trở lại. Tính hữu ích của nó là tùy thuộc vào người đọc :-).

lstype<-function(type='closure'){ 
    inlist<-ls(.GlobalEnv) 
    if (type=='function') type <-'closure' 
    typelist<-sapply(sapply(inlist,get),typeof) 
    return(names(typelist[typelist==type])) 
} 

Answer 3

Đây là một chức năng khá tiện lợi mà tôi đã chọn ở đâu đó và điều chỉnh một chút. Có thể được tốt đẹp để giữ trong thư mục.

list.objects <- function(env = .GlobalEnv) 
{ 
    if(!is.environment(env)){ 
     env <- deparse(substitute(env)) 
     stop(sprintf('"%s" must be an environment', env)) 
    } 
    obj.type <- function(x) class(get(x, envir = env)) 
    foo <- sapply(ls(envir = env), obj.type) 
    object.name <- names(foo) 
    names(foo) <- seq(length(foo)) 
    dd <- data.frame(CLASS = foo, OBJECT = object.name, 
        stringsAsFactors = FALSE) 
    dd[order(dd$CLASS),] 
} 

> x <- 1:5 
> d <- data.frame(x) 
> list.objects() 
#  CLASS  OBJECT 
# 1 data.frame   d 
# 2 function list.objects 
# 3 integer   x 
> list.objects(env = x) 
# Error in list.objects(env = x) : "x" must be an environment 

Answer 4

Bạn có thể sử dụng lệnh sau để xóa TẤT CẢ biến. Hãy cẩn thận vì bạn không thể lấy lại các biến của bạn.

rm(list=ls(all=TRUE))