lapply der Liste in Reporters Pakete

Question

ich eine Liste mit Namen und eine Liste der Tabelle haben, die in ReporteRs Pakete zu erstellen, „MyFTable“ genannt, habe ich versucht Liste der MyFTable mit Liste t

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

Wenn ich anwenden tun Sie es getrennt, es funktioniert, aber wenn ich die Schleife einsetze, funktioniert es nicht.

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

Dies ist mein Versuch:

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]]))) 
} 

ich eine Fehlermeldung anzeigt:

x muss ein Flextable sein

Vielen Dank für Ihre Beratung.

Answer 1

Sie fügen lapply ohne triftigen Grund hinzu. Sie können das in einer normalen Schleife tun.

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

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

Sie können auch mapply verwendet werden, die von allen vorgesehenen Objekte auf entsprechende Elemente arbeitet (in diesem Fall mft und tt).

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

Wenn Sie versessen auf lapply sind, könnten Sie „eine Schleife verstecken“.

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

Dieses letzte Stück Code ist interessant, weil es einfach ist, zu zeigen, wie das Debuggen in R. arbeitet browser() an einem gewissen Punkt in einer Funktion Durch die Einstellung, die Ausführung an diesem Punkt zu stoppen und Sie können entweder Elemente oder vorab prüfen durch Eingabe von n oder c. Der erste Befehl bewegt sich eine Zeile vorwärts (von browser() Aufruf) und c wird die aktuelle "Schleife" ausführen und warten auf die browser() Zeile in der nächsten Schleife (wenn nicht fertig, dann ist es vorhanden).

Probieren Sie es aus, führen

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

und Ihre prompte sollte ein wenig ändern. Überprüfen Sie die Elemente i, mft und tt, und prüfen Sie, ob sie mit Ihren Elementen MyFTable[[1]] und t[[1]] übereinstimmen. Geben Sie zum Beenden Q ein.