# File src/library/graphics/R/rect.R # Part of the R package, https://www.R-project.org # # Copyright (C) 1995-2012 The R Core Team # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # A copy of the GNU General Public License is available at # https://www.R-project.org/Licenses/ rasterImage <- function (image, xleft, ybottom, xright, ytop, angle = 0, interpolate = TRUE, ...) { .External.graphics(C_raster, if (inherits(image, "nativeRaster")) image else as.raster(image), as.double(xleft), as.double(ybottom), as.double(xright), as.double(ytop), as.double(angle), as.logical(interpolate), ...) invisible() } plot.raster <- function(x, # a "raster" object y, # not used xlim=c(0, ncol(x)), # by default based on raster dims ylim=c(0, nrow(x)), xaxs="i", # by default fill plot region yaxs="i", asp=1, # by default retain aspect ratio add=FALSE, # by default new plot ...) { if (!add) { plot.new() plot.window(xlim=xlim, ylim=ylim, asp=asp, xaxs=xaxs, yaxs=yaxs) } rasterImage(x, 0, 0, ncol(x), nrow(x), ...) }