在函数参数中使用文件名

Question

我有两个名为abc.csv和efg.csv的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)