lapply из списка в репортеры пакетов

Question

у меня есть список имен и список таблицы, которые создают в ReporteRs пакетов, называемых «MyFTable», я попытался применить список из MyFTable со списком т

t1 <- c("a","b","c") 
t2 <- c("d","e","f") 
t <- list(t1, t2) 

If I делаю отдельно, он работает, но когда я вхожу в цикл, он не работает.

addHeaderRow(MyFTable[[1]], value=c("", t1)) 
    addHeaderRow(MyFTable[[2]], value=c("", t2)) 

Это моя попытка:

for(i in 1: length(MyFTable)){ 
    lapply(MyFTable[[i]],function(x) addHeaderRow(x, value=c("",t[[i]]))) 
} 

for(i in 1: length(MyFTable)){ 
    lapply(MyFTable[[i]],function(x) addHeaderRow(x[[i]], value=c("",t[[i]]))) 
} 

я получил ошибку:

х должно быть FlexTable

Спасибо за ваши советы.

Answer 1

Вы добавили lapply не без оснований. Вы можете сделать это в регулярном цикле.

out <- vector("list", length(MyFTable)) # always pre-allocate 

for(i in 1:length(MyFTable)){ 
    out[[i]] <- addHeaderRow(MyFTable[[i]], value=c("",t[[i]]))) 
} 

Вы также можете использовать mapply, который работает на соответствующие элементы из всех предоставленных объектов (в данном случае mft и tt).

myFun <- function(mft, tt) addHeaderRow(mft, tt) 
mapply(FUN = myFun, mft = MyFTable, tt = t) 

Если вы одержимы lapply, можно «скрыть петлю».

lapply(1:length(MyFTable), FUN = function(i, mft, tt) { 
    addHeaderRow(mft[[i]], value = c("", tt[[i]])) 
}, mft = MyFTable, tt = t) 

Этот последний кусок кода интересен тем, что это легко показать, как отладка работает в R. Устанавливая browser() в какой-то момент в функции, выполнение остановится в этой точке, и вы можете осмотреть элементы или заранее набрав n или c. Первая команда переместит одну строку вперед (от browser() звонок), а c выполнит текущий «цикл» и ждет строку browser() в следующем цикле (если не закончена, то она существует).

Попробуйте, выполнить

lapply(1:length(MyFTable), FUN = function(i, mft, tt) { 
    browser() 
    addHeaderRow(mft[[i]], value = c("", tt[[i]])) 
}, mft = MyFTable, tt = t) 

и ваша подсказка должна немного изменить. Осмотреть элементы i, mft и tt и посмотреть, соответствуют ли они вашим MyFTable[[1]] и t[[1]] элементам. Чтобы выйти, введите Q.