quartz <- function(...) {
    png(file = random_filename_generator('png'), ...)
}

X11 <- function(...) {
    quartz(...)
}

pdf <- function(file = f, ...) {
    quartz(...)
}

jpeg <- function(file = f, ...) {
    quartz(...)
}

random_filename_generator <- function(file_extension) {
    random_filename <- paste(runif(1, 100000, 1000000000), file_extension, sep=".")
    cat(file_extension, "_filename:", random_filename, "\n", sep="")
    return(random_filename)
}