[r] 함수를 제외한 모든 변수 제거
R 콘솔에 다른 유형의 개체를로드했습니다. 모두 제거 할 수 있습니다.
rm(list=ls())
또는 다음을 사용하여 함수 만 제거하십시오 (변수 제외).
rm(list=lsf.str())
내 질문은 : 함수를 제외한 모든 변수를 제거하는 방법이 있습니까?
답변
다음 은 함수를 제외한 모든 객체를 제거하는 한 줄입니다 .
rm(list = setdiff(ls(), lsf.str()))
그것은 사용 setdiff
(에 의해 반환되는 글로벌 환경에서 개체의 집합 찾아 ls()
모드가없는) function
(에 의해 반환 lsf.str()
)
답변
게시 된 setdiff
답변이 좋습니다. 얼마 전에 작성한이 관련 함수를 게시 할 것이라고 생각했습니다. 그것의 유용성은 독자에게 달려 있습니다 :-).
lstype<-function(type='closure'){
inlist<-ls(.GlobalEnv)
if (type=='function') type <-'closure'
typelist<-sapply(sapply(inlist,get),typeof)
return(names(typelist[typelist==type]))
}
답변
다음 명령을 사용하여 모든 변수를 지울 수 있습니다. 변수를 되 찾을 수 없으므로주의하십시오.
rm(list=ls(all=TRUE))
답변
여기 내가 어딘가에 집어 들고 약간 조정 한 매우 편리한 기능이 있습니다. 디렉토리에 보관하는 것이 좋을 수 있습니다.
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
답변
현재 환경에서 함수를 제외한 모든 개체를 제거하기 위해 이것을 작성했습니다 (사용되는 프로그래밍 언어는 IDE R-Studio가있는 R입니다).
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
노트-
rm (list =)의 “list”인수는 문자형 벡터 여야합니다.
현재 환경의 i 위치에있는 객체의 이름은 ls () [i]에서 반환되고 객체 자체는 get (ls () [i])에서 반환됩니다. 따라서 객체의 클래스는 class (get (ls () [i]))에서 반환됩니다.