R-project错误消息-无法读取表

我正在努力学习R教程

目标是创建一个函数，该函数必须： 1） 将工作目录设置为“我的桌面”上包含大量.csv文件的文件夹。 2） 获取一个参数以标识要使用/加载的文件。 2b）必须将参数设置为特定格式。调用函数的人可以输入一个长度介于1到3位数之间的数字）。有几百个可能要加载的文件，它们必须以“001.csv”、“050.csv”和“200.csv”格式输出。 3） 加载输入文件的数据

这是我的密码：

getmonitor <- function(id){

setwd("C:/Users/myname/Desktop/specdata") #set the directory

csvfile <- function(id) # set the file number format
    if (id < 10) { 
        paste0(0,0,id,".csv")
    } else if (id < 100) {
        paste0(0,id,".csv")
    } else paste0(id,".csv")
}

foo <-read.csv(csvfile) #load the appropriate csv file

}

---

getmonitor将函数
csvfile
作为文件参数传递，而不是该函数调用时返回的字符串。你想要

foo <- read.csv(csvfile(id))

foo