Использование lapply для вложенных петель

Question

Я изучал немного lapply магии в R, но не понял, как заменить вложенные циклы - это тоже возможно?

Вот моя проблема и решение вложенной петли.

monCode <- c('F', 'G', 'H', 'J', 'K', 'M', 'N', 
     'Q', 'U', 'V', 'X', 'Z') 
yearRange <- as.character(3:15) 
yearRange[as.numeric(yearRange) < 10] <- as.character(paste0("0", yearRange[as.numeric(yearRange) < 10])) 

outList <- vector() 
for(Yr in yearRange) { 
    for (mon in monCode) { 
     outList <- c(outList, (paste0("IB", mon, Yr, " Comdty"))) 
    } 
} 

Как бы я сделать это с помощью вложенных lapply функции, а не вложенных циклов?

заранее спасибо

Answer 1

Нет необходимости для вложенных циклов или вложенных lapply.

Использование expand.grid создать все комбинации monCode и yearRange затем do.call(sprintf,...) конкатенировать их

f <- expand.grid(monCode,yearRange) 
outList <- do.call(sprintf, c(f, fmt = 'IB%s%s comdty'))