Я загрузил в R-консоль разные типы объектов. Я могу удалить их все, используя
rm(list=ls())
или удалите только функции (но не переменные), используя
rm(list=lsf.str())
Мой вопрос: есть ли способ удалить все переменные, кроме функций
Я загрузил в 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]))
}
Здесь довольно удобная функция, которую я где-то подобрал и немного поправился. Может быть, приятно хранить в каталоге.
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
Вы можете использовать следующую команду, чтобы очистить ВСЕ переменные. Будьте осторожны, потому что вы не можете вернуть свои переменные.
rm(list=ls(all=TRUE))