r - シーケンス内の最初の既存ファイルを見つける方法

Question

必要なファイルが含まれている可能性のある場所がいくつかあります。

ベクター内の最初の既存のファイルを見つけたいです。

両方

find.existing.file <- function (files) {
  present <- which(file.exists(files))
  stopifnot(length(present) > 0)
  files[present[1]]
}

と

find.existing.file <- function (files) {
  for (i in 1:length(files))
    if (file.exists(files[i]))
      return(files[i])
  stop("None exist: ",paste(files,collapse=" "))
}

私が必要なことをしているはずです。

ただし、最初のバージョンは最初の既存のファイルに戻る代わりにすべてのファイルをチェックしますが、2番目のバージョンはループを使用しますが、これはあまり「R'y」ではないと思います。

明らかな何かが欠けているのではないかと思っていました。

ありがとう。