numbers <- c(2, 3, 5, 7, 11, 13, 17, 19)
taken <- numeric(0)
for (number in numbers) {
if (number > 10) break
taken <- c(taken, number)
}
# taken = 2 3 5 7
# No else on loops: a flag marks the break
found <- FALSE
for (number in numbers) {
if (number > 100) {
found <- TRUE
break
}
}
# found = FALSE
cat("taken =", taken, "\n")
cat("found =", found, "\n")