Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

26 lines (22 sloc) 0.608 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) {
nulldefault(.$scales$x[[1]]$name, theme$labels$x)
}
ylabel <- function(., theme)
nulldefault(.$scales$y[[1]]$name, theme$labels$y)
})
Jump to Line
Something went wrong with that request. Please try again.