Fehler: fehlender Wert mit True/False

Question

Ich versuche, alle Werte in einer Liste zu löschen, die das Tag ".dsw" haben. Meine Liste ist eine Liste von Dateien mit der Funktion list.files. Das ist mein Code:

for (file in GRef) { 
    if (strsplit(file, "[.]")[[1]][3] == "dsw") { 
    #GRef=GRef[-file] 
    for(n in 1:length(GRef)){ 
     if (GRef[n] == file){ 
     GRef=GRef[-n] 
     } 
    } 
    } 
} 

Wo ist GRef die Liste der Dateinamen. Ich bekomme den oben aufgeführten Fehler, aber ich verstehe nicht warum. Ich habe diesen Beitrag angesehen: Error .. missing value where TRUE/FALSE needed, aber ich denke nicht, dass es das gleiche ist.

Answer 1

Sie sollten nicht versuchen, einen Vektor zu ändern, während Sie ihn durchlaufen. Das Problem besteht darin, dass Sie Elemente entfernen, die Sie später extrahieren möchten und die die fehlenden Werte verursachen. Es ist besser, alle Elemente, die Sie entfernen möchten, zuerst zu entfernen und dann zu entfernen. Zum Beispiel

GRef <- c("a.file.dsw", "b.file.txt", "c.file.gif", "d.file.dsw") 
exts <- sapply(strsplit(GRef, "[.]"), `[`, 3) 
GRef <- GRef[exts!="dsw"]