R-Project if else 语法

Question

这个问题在这里已经有了答案:





Error: unexpected symbol/input/string constant/numeric constant/SPECIAL in my code

(3 个回答)


7年前关闭。




我正在学习一个教程，并且在语法方面遇到了困难。我看不出哪里出错了，但我从控制台收到错误消息。

我在一个目录中有 300 个 csv 文件的列表。用户将输入他们正在寻找信息的文件的编号 (id)。格式如下:001.csv、002.csv、090.csv、250.csv等。

功能是将输入转换成字符串，即csv文件名。例如如果 id 为 5，则返回 005.csv。如果输入220，输出220.csv。

这是代码:

csvfile <- function(id) {
  if (id < 10) { paste0(0,0,id,".csv"
  } else if (id < 100) {paste0(0,id,".csv"
  }else paste0(id,".csv")
}

这是控制台返回的错误:

> csvfile <- function(id) {
+ if (id < 10) { paste0(0,0,id,".csv"
+ } else if (id < 100) {paste0(0,id,".csv"
Error: unexpected '}' in:
"if (id < 10) { paste0(0,0,id,".csv"
}"
> }else paste0(id,".csv")
Error: unexpected '}' in "}"
> }

我可以看到 R 不喜欢我的某些 '}' 但不知道为什么？我的语法有什么问题？

Answer 1

你错过了一些 )那里的字符，对于前两个 paste0调用:

csvfile <- function(id) {
    if (id < 10) { 
        paste0(0,0,id,".csv")
    } else if (id < 100) {
        paste0(0,id,".csv")
    } else paste0(id,".csv")
}