Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (21 sloc) 0.54 kB
Facet <- proto(TopLevel, {
clone <- function(.) {
as.proto(.$as.list(all.names=TRUE), parent=.)
}
objname <- "Facet"
class <- function(.) "facet"
html_returns <- function(.) {
ps(
"<h2>Returns</h2>\n",
"<p>This function returns a facet object.</p>"
)
}
parameters <- function(.) {
params <- formals(get("new", .))
params[setdiff(names(params), c(".","variable"))]
}
xlabel <- function(., theme)
.$scales$x[[1]]$name
ylabel <- function(., theme)
.$scales$y[[1]]$name
})
Jump to Line
Something went wrong with that request. Please try again.