loại bỏ tất cả các biến ngoại trừ các hàm

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

rm(list=ls())

hoặc chỉ xóa các hàm (chứ không phải các biến) bằng cách sử dụng

rm(list=lsf.str())

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

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

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

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

setdiffCâu trả lời được đăng là tốt đẹp. Tôi chỉ nghĩ rằng tôi sẽ đăng chức năng liên quan này mà tôi đã viết một thời gian trước. 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]))
}

Bạn có thể sử dụng lệnh sau để xóa TẤT CẢ cá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 mình.

rm(list=ls(all=TRUE))

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

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

Tôi đã viết điều này để xóa tất cả các đối tượng ngoài các hàm khỏi môi trường hiện tại (Ngôn ngữ lập trình được sử dụng là R với IDE R-Studio):

    remove_list=c()                             # create a vector

      for(i in 1:NROW(ls())){                   # repeat over all objects in environment
        if(class(get(ls()[i]))!="function"){    # if object is *not* a function
         remove_list=c(remove_list,ls()[i])     # ..add to vector remove_list
         }    
      }

    rm(list=remove_list)                        # remove all objects named in remove_list

Ghi chú-

Đối số "list" trong rm (list =) phải là một vector ký tự.

Tên của một đối tượng ở vị trí i của môi trường hiện tại được trả về từ ls () [i] và chính đối tượng đó từ get (ls () [i]). Do đó, lớp của một đối tượng được trả về từ lớp (get (ls () [i]))