1

Considere a lista:

mylist=structure(list(quem = 1:10, quer = c(1.1, 2.1, 3.1, 4.1, 5.1), 
isso = structure(list(X__1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 
10, 11, 12), X__2 = c(123, 456, 789, 1122, NA, 1788, NA, 
2454, 2787, NA, 3453, 3786), X__3 = c("a", NA, "a", NA, NA, 
"a", "a", NA, "a", "a", "b", "b")), .Names = c("X__1", "X__2", 
"X__3"), row.names = c(NA, -12L), class = "data.frame")), .Names = 
c("quem", 
"quer", "isso"))

Objetivo 1: retirar elementos de mylist que contenham a partícula qu

Objetivo 2: retirar elementos de mylist que sejam da classe data.frame

Estes objetivos são mutuamente excludentes. Isto é, cada objetivo deve ter uma função.

2 Respostas 2

3

Objetivo 1: retirar elementos de mylist que contenham a partícula qu

mylist[grep("qu", names(mylist))]

Basta fazer uma expressão regular e procurar pelo termo qu. Note que a saída também é uma lista

Objetivo 2: retirar elementos de mylist que sejam da classe data.frame

mylist[sapply(mylist, is.data.frame)]

Note que a saída também é um lista

0
3

Aqui vão duas funções.

Objetivo 1

qu_extract <- function(object){
  if(!inherits(object, "list")){
    obj <- deparse(substitute(object))
    stop(paste(obj, "não é de classe 'list'"))
  }
  inx <- sapply(names(object), function(x) grepl("qu", x))
  if(any(inx)) object[inx] else invisible(NULL)
}


qu_extract(mylist)
#$quem
#[1]  1  2  3  4  5  6  7  8  9 10
#
#$quer
#[1] 1.1 2.1 3.1 4.1 5.1

y <- 1:5
qu_extract(y)
#Error in qu(y) : y não é de classe 'list'

Objetivo 2.

df_extract <- function(object){
  inx <- sapply(object, inherits, "data.frame")
  if(any(inx)) object[inx] else invisible(NULL)
}

df_extract(mylist)
df_extract(y)

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .