result_1 <- data.frame(result = c(1, 2, 3))
error <- NULL
list_1 <- list(result_1, error)
names(list_1) <- c("result", "error")
result_2 <- data.frame(result = c(4, 5, 6))
error <- "result is corrupt"
list_2 <- list(result_2, error)
names(list_2) <- c("result", "error")
list_of_lists <- list(list_1, list_2)
discard_errors(list_of_lists)
Run the code above in your browser using DataLab