You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.4 KiB
48 lines
1.4 KiB
|
|
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)
|
|
}
|
|
|