R/oscar-grob.R

In hrbrmstr/statebins: Create United States Uniform Cartogram Heatmaps

#
# oscarGrob <- function(x=unit(0.5, "npc"), y=unit(0.5, "npc"),
#                       width=unit(1, "npc"), height=unit(1, "npc"),
#                       default.units="npc",
#                       name=NULL, gpbl=gpar(), gptr=gpar(), vp=NULL) {
#   if (!is.unit(x))
#     x <- unit(x, default.units)
#   if (!is.unit(y))
#     y <- unit(y, default.units)
#   if (!is.unit(width))
#     width <- unit(width, default.units)
#   if (!is.unit(height))
#     height <- unit(height, default.units)
#
#   if (length(name) == 0) name <- "oscar"
#
#   ggname(
#
#     name,
#
#     grid::grobTree(
#
#       grob(x=unit.c(x, x+width, x, x),
#            y=unit.c(y, y, y+height, y),
#            name=sprintf("%s_bl", name), gp=gpbl, vp=vp, cl="polygon"),
#
#       grob(x=unit.c(x+width, x, x+width, x+width),
#            y=unit.c(y+height, y+height, y, y+height),
#            name=sprintf("%s_tr", name), gp=gptr, vp=vp, cl="polygon")
#     )
#
#   )
#
# }
#
# grid.oscar <- function(x=unit(0.5, "npc"), y=unit(0.5, "npc"),
#                        width=unit(1, "npc"), height=unit(1, "npc"),
#                        default.units="npc",
#                        name=NULL, gpbl=gpar(), gptr=gpar(),
#                        draw=TRUE, vp=NULL) {
#
#   rg <- oscarGrob(x=x, y=y, width=width, height=height,
#                   default.units=default.units,
#                   name=name, gpbl=gpbl, gptr=gptr, vp=vp)
#   if (draw)
#     grid.draw(rg)
#   invisible(rg)
# }