循环中断时间

Question

我正在使用Kim Tsao（http://www.kimtsao.com/Kim_Tsao/Code/Entries/2011/9/30_Reflections_on_the_lake_files/tRFLP_id.r）发布的代码进行片段分析。我试图将最后的代码块写入循环，而不是为每个样本手动运行代码。但是，在打印“示例列表结尾”之后，我无法正确中断循环。

x <- 0 
repeat {
     x <- x+1 
     if (x<= length(samplelist)){
         samplelist[x]
         output = matchSample(x, weightby=c("Height","AreaInPoint"),threshold=4) 

         if (nrow(output)>1){graphOutput(output)} else {print(samplelist[x]);print(output)}
     } else { print("End of sample list.")}
     if (print("End of sample list.")){
         break
     }