Мы можем использовать:
rm(list=ls(all=TRUE)[sapply(mget(ls(all=TRUE)), function(x) !is.environment(x))])
Проверьте это в новой пустой среде:
s<-9
iris1<-iris[1:24,]
e2<-new.env()
e3<-new.env()
e4<-new.env()
Затем мы удалим все, что не является средой (недостаток в том, чтомы не тестируем среду, созданную специально new.env
, но любой «объект», который является средой в пределах .Globalenv
).Проверьте это:
rm(list=ls(all=TRUE)[sapply(mget(ls(all=TRUE)), function(x) !is.environment(x))])
Оставляет вас только с окружающей средой.