" = "hjust",
"bg" = "fill",
"fg" = "colour",
"min" = "ymin",
"max" = "ymax"
)
aes...<- function(x, y, ...) {
aes <- structure(as.list(match.call()[-1]), class = "uneval")
rename_aes...(aes)
}
#' @export
print.uneval <- function(x, ...) {
values <- vapply(x, deparse2, character(1))...values, "\n")
cat(bullets, sep = "")
}
# Rename American or old-style aesthetics name
rename_aes...) {
y
} else {
paste0(y[[1]], "...")
}
}
#map to data (just an example)
data <- lapply(aes