r - 特定于平台的图形设备

Question

graph <- function(filename){
setwd("graphics")
ext <- ifelse(.Platform$OS.type == "unix", "pdf", "wmf")
name <- paste(filename, ext, sep=".")
ifelse(.Platform$OS.type == "unix", pdf(name, width=6, height=4), wmf(name, width=6, height=4))
}

这是我的尝试，但我遇到了这个错误

ans[test & !nas] 错误 <- rep(yes, length.out = length(ans))[test & : 替换的长度为零

有什么想法吗？我觉得我忽略了什么。

Answer 1

这是您的函数的更完善的版本。改进:

• 不会弄乱你的工作目录
• 通过从扩展中查找设备函数来避免重复的 if 语句

->

graph <- function(filename) {
  ext <- if(.Platform$OS.type == "unix") "pdf" else "wmf"
  dev <- match.fun(ext)
  path <- paste("graphics/", filename, ".", ext, sep = "")

  dev(path, width = 6, height = 4)
}