Displaying 1 result from an estimated 1 matches for "firstupper".
2009 Oct 08
2
proto and get()
...# lines[GRID.lines.9]
# this returns the function icon, OK
GeomAbline$icon
# proto method (instantiated with ): function (.)
# linesGrob(c(0, 1), c(0.2, 0.8))
# <environment: 0x13e6800>
Now I want to wrap this in a function,
getIcon <- function(geom){
st <- paste("Geom", firstUpper(geom), sep="")
g <- get(st, 2)
g$icon()
}
getIcon("abline") # still OK
# lines[GRID.lines.10]
but ...
getIcon <- function(geom){
st <- paste("Geom", firstUpper(geom), sep="")
g <- get(st, 2)
g$icon
}
getIcon("abline")
#...