R编程。代码不工作。为什么？

我有一个包含10个文件的文件夹，即01.csv、02.csv。。。。10.csv

我必须从用户那里获取一组数字，但只打开与之对应的文件。 注意：用户也可以输入不在1-10范围内的数字，在这种情况下，我们必须返回一行，说明错误

这是我代码的一部分：我已经在z中保存了来自用户的号码。现在,

for(i in seq_along(z)){ 

  if(z[i]>0 & z[i]<10){

    z[i] <- paste("0", z[i], sep="")
    z[i] <- paste(z[i], "csv", sep=".")
    a<-read.csv(z[i])
    print(a)
  }
}

用于（沿（z）的顺序中的i）{
如果（z[i]>0&z[i]如果
z
是一个字符串，例如“1:4”，则可以按如下方式获得相应的向量

z <- "1:4"
z <- eval(parse(text = z))
z
# [1] 1 2 3 4

z这是否有帮助

fun1 <- function(z){
  a <- vector('list', length(z))
  z1 <- sprintf('%02d%s', z, '.csv')
  for(i in seq_along(z)){
     stopifnot(z[i] > 0 & z [i] < 10)
     a[[i]]<-read.csv(z1[i], sep='')
     print(a[[i]])
  }
  #a
 }

 z <- 11:12
 fun1(z)
 #Error: z[i] > 0 & z[i] < 10 is not TRUE

 z <- c(1,11)
 fun1(z)
 #  Col1 Col2
 #1    3    4
 #2    4    8
 #Error: z[i] > 0 & z[i] < 10 is not TRUE

  z <- 1:2
  fun1(z)
  #  Col1 Col2
  #1    3    4
  #2    4    8
  #  Col1 Col2
  #1    3    5
  #2    4    9

fun1