從while循環

Question

UPDATE見下文

返回的對象，我不知道如何在沒有計數器/迭代通過索引填充在一個while循環元素的列表或載體。見下面最小的例子。我有一個更復雜的while循環，就像下面的foo一樣，它有一個不包含數字的邏輯語句，所以我不清楚如何用x填充vec列表。是否有可能在while循環中創建某種迭代器，以便每次通過while循環時迭代器只增加一個？那麼我可以使用這個迭代器來對vec列表進行索引？

foo <- function(){ 
    names <- list("a","b","c") 
    vec <- list() 
    more <- TRUE 
    while(more == TRUE){ 
    names <- rep(names, 2) 
    if(length(names) < 50) vec <- names 
    more <- length(names) < 50 
    } 
    vec 
} 

foo() 

謝謝，這似乎工作，我現在想：

foo <- function(){ 
    names <- list("a","b","c") 
    i <- 0 
    vec <- list() 
    more <- TRUE 
    while(more == TRUE){ 
    i <- i + 1 
    names <- rep(names, 2) 
    if(length(names) < 50) vec[[i]] <- names 
    more <- length(names) < 50 
    } 
vec 
} 

foo() 

Answer 1

使用，你構建自己的迭代器是很容易的辦法。下面是在什麼可能是這樣的方式至少R鍵完成這個任務打印數字1到10的一些示例代碼：

i <- 0 
more <- TRUE 
while(more == TRUE){ 
    i <- i + 1 
    print(i) 
    if(i == 10){ 
     more <- FALSE 
    } 
} 

正如你可以看到它幾乎就像你描述。您只需增加循環頂部的迭代器即可。