1

我知道 R 中的 switch 语句的设计不像在 C++ 中那样工作,但我已经阅读了文档,似乎无法弄清楚为什么以下内容不起作用

file.types <- c('bmp', 'jpeg', 'png', 'tiff', 'eps', 'pdf', 'ps')
  if(tolower(file.type) %in% file.types) {
    switch(file.type,
           bmp = bmp(filename=paste(file.location, file.name, '.',
                                    file.type, sep=''), 
                     width=res[2], height=res[1])
           jpeg = jpeg(filename=paste(file.location, file.name, '.',
                                      file.type, sep=''),
                     width=res[2], height=res[1])
           png = png(filename=paste(file.location, file.name, '.',
                                    file.type, sep=''),
                     width=res[2], height=res[1])
           tiff = tiff(filename=paste(file.location, file.name, '.',
                                      file.type, sep=''),
                       width=res[2], height=res[1])
           eps = postscript(filename=paste(file.location, file.name, '.',
                                           file.type, sep=''),
                            width=res[2], height=res[1])
           pdf = postscript(filename=paste(file.location, file.name, '.',
                                           file.type, sep=''),
                            width=res[2], height=res[1])
           ps = postscript(filename=paste(file.location, file.name, '.',
                                          file.type, sep=''),
                           width=res[2], height=res[1]))  
  } else {
      stop(paste(file.type,' is not supported', sep=''))
  }

当 file.type 为“jpeg”时,我收到以下错误

Error: unexpected symbol in:
"           bmp = {bmp(filename=paste(file.location, file.name, '.', file.type, sep=''), width=res[2], height=res[1])}
       jpeg"

欣赏任何见解!

4

1 回答 1

1

这是语法错误。,您在 中的每个选项的末尾都缺少一个(逗号) switch,例如

switch(file.type,
       bmp = bmp(filename=paste(file.location, file.name, '.', 
                                file.type, sep=''), 
                 width=res[2], height=res[1]),
                                             ^ here

一般形式是

switch(foo,
       opt1 = statement1,
       opt2 = statement2,
       opt3 = ,
       opt4 = statement3)

其中opt3opt4返回 的值statement3

于 2013-07-25T00:29:02.637 回答