fcn <- System$findGraphicsDevice();
if (identical(fcn, png)) {
cat("PNG device found: png()");
} else if (identical(fcn, bitmap)) {
cat("PNG device found: bitmap()");
} else {
cat("PNG device not found.");
}
Run the code above in your browser using DataCamp Workspace