Использование имени файла в аргументе функции

Question

У меня есть два csv-файла, например, с именами abc.csv и efg.csv.Я пытаюсь создать функцию, которая выбирает правильный файл, вводя имя файла в аргумент функции.Затем он должен вернуть первую строку этого фрейма данных.

Я пробовал это, но, вероятно, что-то не так в использовании меток [[""]].

function(x)

{ if x == [["abc"]] return( a <- read.csv2(file = "abc.csv", header = FALSE, sep = ",",
                                           stringsAsFactors = FALSE) )
  else return(a <- read.csv2(file = "efg.csv", header = FALSE, sep = ",",
                             stringsAsFactors = FALSE))

  y <- a[1,]
  paste(y)