добавление оператора ifelse like или trycatch в код для чтения в файлах

Question

Я пытаюсь прочитать некоторые данные, используя комбинацию list.files и т. Д.

У меня есть символьное значение с именем myfiles, которое выглядит следующим образом:

[1] "E:/IRI Data/External/demos12.csv"
[2] "E:/IRI Data/External/demo8.CSV"  
[3] "E:/IRI Data/External/demos10.CSV"
[4] "E:/IRI Data/External/demos11.CSV"
[5] "E:/IRI Data/External/demos9.CSV" 

Который имеет разные размеры шрифта для .csv форматов.У меня есть следующая функция:

myfiles = lapply(myfiles,
                 FUN = function(files) {
                   read.csv(files, header = TRUE)
                 })

, которая читает в файлах .csv, однако у меня есть несколько строчных и прописных букв, поэтому я сталкиваюсь с ошибками в строке 3 этой функции read.csv - Iя пытаюсь расширить функцию так, чтобы, если файл не выходит за .csv в нижнем регистре, попробуйте .CSV в верхнем регистре.

Любая помощь будет большой.