Nothing
ggplot2_set_last_plot <- utils::getFromNamespace("set_last_plot", "ggplot2")
#' Print \code{\link{ggmatrix}} object
#'
#' Print method taken from \code{ggplot2:::print.ggplot} and altered for a \code{\link{ggmatrix}} object
#'
#' @param x plot to display
#' @param newpage draw new (empty) page first?
#' @param vp viewport to draw plot in
#' @param ... arguments passed onto \code{\link{ggmatrix_gtable}}
#' @method print ggmatrix
#' @author Barret Schloerke
#' @import utils
#' @importFrom grid grid.newpage grid.draw seekViewport pushViewport upViewport
#' @export
#' @examples
#' data(tips)
#' pMat <- ggpairs(tips, c(1, 3, 2), mapping = ggplot2::aes(color = sex))
#' pMat # calls print(pMat), which calls print.ggmatrix(pMat)
print.ggmatrix <- function(x, newpage = is.null(vp), vp = NULL, ...) {
if (newpage) {
grid.newpage()
}
grDevices::recordGraphics(
requireNamespace("GGally", quietly = TRUE),
list(),
getNamespace("GGally")
)
gtable <- ggmatrix_gtable(x, ...)
# must be done after gtable, as gtable calls many ggplot2::print.ggplot methods
ggplot2_set_last_plot(x)
if (is.null(vp)) {
grid.draw(gtable)
} else {
if (is.character(vp)) {
seekViewport(vp)
} else {
pushViewport(vp)
}
grid.draw(gtable)
upViewport()
}
invisible(data)
}
#' Is Blank Plot?
#' Find out if the plot equals a blank plot
#'
#' @keywords internal
#' @examples
#' GGally:::is_blank_plot(ggally_blank())
#' GGally:::is_blank_plot(ggally_points(mtcars, ggplot2::aes(disp, hp)))
#'
is_blank_plot <- function(p) {
is.null(p) || identical(p, "blank") || inherits(p, "ggmatrix_blank")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.