Платформерное графическое устройство

Question

Я хотел бы написать функцию, которая принимает имя файла и создает файл .pdf на платформе * nix и .wmf на платформе Windows с этим именем файла и шириной 6 дюймов 4.

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

Это моя попытка, но я получаю эту ошибку

Ошибка в ВНС [тест & NAS!] < - Rep (да, length.out = длина (ANS)) [тест &: замена имеет длину

любые идеи? Я чувствую, что я что-то пропускаю.

Answer 1

Я думаю, проблема в том, что ifelse возвращает значение, не делать все, что в аргументах. Я узнал это раньше: ifelse! = Стенограмма if, ifelse = векторизованный if. На странице справки:

IfElse (тест, да, нет)

«IfElse» возвращает значение с той же формы, как «тест», который заполнена элементами, выбранными из «да» или «нет» в зависимости от того, является ли элемент «test» «TRUE» или «FALSE».

Так просто использовать что-то вроде:

if (.Platform$OS.type == "unix") { 
    pdf(name, width=6, height=4) 
} else { 
    wmf(name, width=6, height=4) 
} 

Answer 2

Вот несколько более полированная версии вашей функции. Улучшения:

• не связывайтесь с вашей рабочей директории
• избегает дублирования, если оператор, просматривая функцию устройства с расширением

->

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