x <- 1:5
are_same_length(
runif(5), x, list(1, 2:3, 4:6, 7:10, 11:15), 1:6,
l = list(seq.int(0, 1, 0.2), rnorm(5))
)
assert_any_are_same_length(runif(5), x, list(1, 2:3, 4:6, 7:10, 11:15), 1:6)
dont_stop(assert_all_are_same_length(runif(5), x, list(1, 2:3, 4:6, 7:10, 11:15), 1:6))
Run the code above in your browser using DataLab