eine Bedingung Fügen Sie eine Funktion in R

Question

ich ein Skript erstellt haben, zu starten, die alle csv öffnen und XLSX-Dateien ein Verzeichnis enthält. Mein Problem tritt auf, wenn mein Verzeichnis keinen Dateityp enthält. (Ex: 5 csv und 0 xlsx OR 0 csv und 14 xlsx) Hier ist, was mein Skript wie folgt aussieht:

#step 1 
file.list <- list.files(pattern='*.csv') 
csv_df <- lapply(file.list, read.csv, header=TRUE) 

#step 2 
file.list <- list.files(pattern='*.xlsx') 
xlsx_df <- lapply(file.list, read_excel_function) 

Ich habe eine Fehlermeldung:

Error in do.call("rbind", xlsx_df) : 
le second argument doit être une liste (the second argument must be a list) 

Haben Sie eine Idee wie man eine Bedingung hinzufügt, die einen Schritt überspringt, wenn die list.files nichts zurückgeben?

Answer 1

könnten Sie führen nur die Lese-/kombinieren Befehl nur, wenn file.list nicht leer ist. Zum Beispiel:

file.list <- list.files(pattern='*.csv') 
if (length(file.list) > 0){ 
    csv_df <- lapply(file.list, read.csv, header=TRUE) 
} 

Sie könnten auch eine else Bedingung hinzufügen, wenn Sie csv_df wollen einen anderen Wert für den Fall haben, dass es keine relevanten Dateien ist.