Uma opção é usar a função is()
que é mais genérica do que is.integer
, por exemplo. Ela exige, como segundo argumento a classe que será verificada.
Colocar o resultado do mget(ls())
proposto na pergunta dentro de uma lista pode ser útil para evitar ficar recriando a lista a cada iteração da função.
ambiente <- mget(ls())
Assim poderíamos ter uma função que retorne o nome dos objetos de uma lista que são de determinada classe.
filtrar_classe <- function(classe, lista) {
names(Filter(function(x) is(x, classe), lista))
}
Uma vez definida a função, podemos aplicá-la às classes desejadas
classes <- c("list", "integer")
res <- classes %>%
lapply(filtrar_classe, lista = ambiente) %>%
unlist()
res
# [1] "e" "f" "a" "b"
Agora que temos um vetor de caracteres como resposta, podemos passar seu resultado como argumento para a função rm()
.
rm(list = res)
ls()
# [1] "ambiente" "c" "classes" "d"
# [5] "filtrar_classe" "g" "h" "res"
tidyverse
Se quisermos deixar a solução mais "tidy", podemos fazer como segue
filtrar_tidy <- function(classe, lista) {
keep(lista, ~ is(.x, classe)) %>%
names()
}
classes %>%
map(filtrar_tidy, lista = ambiente) %>%
flatten_chr()
Sobre a opção na lista
A ideia é a mesma, basta usar os nomes em conjunto com [
para selecionar os elementos da lista que deseja eliminar.
nova_lista <- ambiente[ !names(ambiente) %in% res ]
nova_lista
$c
[1] "a"
$d
[1] "a"
$g
[1] 1.1
$h
[1] 1.1