Question

我知道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"

欣赏任何见解！

Answer 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)

opt3和opt4都返回statement3的值。

在R中使用Switch语句

1 个答案: