forループの最初の反復を特定します。

Question

アイテムのリストを反復して現在の反復番号を取得したいとします。これは簡単な方法ですか？

これは私の（例）ループです：

loopit <- c('happ','goof','funk') 
str <- '' 
for (l in loopit){ 
    print(paste0(l,'y')) 
} 

それは手動で反復カウンタを構築するのは簡単です：

i <- 1 
for (l in loopit){ 
    if(i==1){ 
    print(paste0('so ',l,'y!!!')) 
    }else{ 
    print(paste0(l,'y')) 
    } 
    i <- i + 1 
} 

は、現在の反復数を取得するために、よりエレガントな、より直接的な方法はあります？

Answer 1

この具体例では、反復回数を知る必要はありません。多分あなたの本当の問題にも同じです。この例を参照してください。

foo <- function(x) { 
    print(paste0('so ', head(x, 1), 'y!!!')) 
    for (l in tail(x, -1)) print(paste0(l, 'y')) 
} 

foo(loopit)