使用 while 循环

与 for 循环不同，while 循环会一直运行，直到给定条件不满足为止。
例如，下面的 while 循环从 x=0 开始。每次循环都会检查 x<=10 是否成立。如果成
立，就执行循环内部的表达式；如果不成立，就终止循环：
x <- 0
while(x <= 5) {
cat(x, "", sep = "")
x <- x + 1
}
## 0 1 2 3 4 5
如果我们移除 x <- x + 1，x 的值就不会增加，那么，代码就会无休止地运行下去
（除非 R 被迫终止运行）。因此，如果 while 循环没有被恰当地执行的话，是很危险的。
和 for 循环一样，在 while 循环中，控制流语句（break 和 next）也是适用的：
x <- 0
while(TRUE) {
x <- x + 1
if(x == 4) break
else if (x == 2) next
else cat(x, '\n')
}
## 1
## 3
实践中，while 循环通常使用在迭代次数未知的情况下，例如从数据库的查询中分块
地获取结果，相应的代码可能如下所示：
res <- dbSendQuery(con, "SELECT * FROM table1 WHERE type = 1")
while (!dbHasCompleted(res)) {
chunk <- dbFetch(res, 10000)
process(chunk)
}
首先，我们通过 con 连接来查询数据库（按行存储数据）中查询条件为 "type=1" 的
所有记录。一旦数据库返回结果集 res（结果集通常是分块的），我们就可以每次处理一块
数据，从而一块一块地从结果集中按行获取数据。由于在查询前我们不知道有多少条记录，
就需要用一个 while 循环，在获取完所有数据（通过 dbHasCompleted( ) 来判断）后
终止运行。
我们一小块一小块地处理，就避免了将一个（也许是巨大的）数据框读取到内存中。
这样，仅需占用很小的内存空间就可以处理大量的数据。不过，前提条件是 process( ) 算
法必须支持这种数据处理方式。
你可能并不熟悉前面的示例代码或术语，但不必担心。我们将在后面的章节中详细介
绍数据库主题。
除了 for 循环和 while 循环，R 还提供了 repeat 循环。就如同 while(TRUE)，
repeat 也是一个循环，它不需要明确的终止或边界条件，除非使用 break 跳出循环：
x <- 0
repeat {
x <- x + 1
if (x == 4) break
else if (x == 2) next
else cat(x, '\n')
}
## 1
## 3
然而，实践中，不推荐使用 repeat，因为它有时比较危险。