WhileLoopBreak.R

x <- 1
for (i in 1:10) {
  while (x < 5) {
    print(x)
    x <- x + i
    if (x >= 5) {
      break
    }
  }
  if (i >= 5) {
    print(paste("I have broken out of the while loop", i, "times"))
  }
}