R: lapply function - skipping the current function loop

As already answered by the others, I do not think you can proceed to the next iteration without returning something using the *apply family of functions.

In such cases, I use Dean MacGregor's method, with a small change: I use NA instead of NULL, which makes filtering the results easier.

files <- list("file1.txt", "file2.txt", "file3.txt")

parse_file <- function(file) {
  if(file.exists(file)) {
    readLines(file)
  } else {
    NA
  }
}

results <- lapply(files, parse_file)
results <- results[!is.na(results)]

A quick benchmark

res_na   <- list("a",   NA, "c")
res_null <- list("a", NULL, "c")
microbenchmark::microbenchmark(
  na = res_na[!is.na(res_na)],
  null = res_null[!vapply(res_null, is.null, logical(1))]
)

illustrates that the NA solution is quite a bit faster than the solution that uses NULL:

Unit: nanoseconds
expr  min   lq    mean median   uq   max neval
  na    0    1  410.78    446  447  5355   100
null 3123 3570 5283.72   3570 4017 75861   100

lapply will always return a list the same length as the X it is provided. You can simply set the items to something that you can later filter out.

For example if you have the function parsefile

parsefile <-function(x) {
  if(x>=0) {
    x
  } else {
    NULL
  }
}

Edit: { As Florent Angly shows, you should replace NULL with NA}

and you run it on a vector runif(10,-5,5)

result<-lapply(runif(10,-5,5), parsefile)

then you'll have your list filled with answers and NULLs

You can subset out the NULLs by doing...

result[!vapply(result, is.null, logical(1))]

Tags:

Function

R

Lapply