This is the message Error in vapply(.x, .f, .mold, ..., USE.NAMES = FALSE) : values must be length 1, but FUN(X[[3]]) result is length 2