diff --git a/R/labeller.r b/R/labeller.r index 978d1bced9..c29f5142af 100644 --- a/R/labeller.r +++ b/R/labeller.r @@ -184,8 +184,7 @@ find_names <- function(expr) { #' #' @param rows Backquoted labelling expression for rows. #' @param cols Backquoted labelling expression for columns. -#' @param default Default labeller function for the rows or the -#' columns when no plotmath expression is provided. +#' @param default Unused, kept for compatibility. #' @seealso \link{labellers}, [labeller()], #' @export #' @examples @@ -196,7 +195,7 @@ find_names <- function(expr) { #' p + facet_grid(. ~ vs, labeller = label_bquote(cols = .(vs) ^ .(vs))) #' p + facet_grid(. ~ vs + am, labeller = label_bquote(cols = .(am) ^ .(vs))) label_bquote <- function(rows = NULL, cols = NULL, - default = label_value) { + default) { cols_quoted <- substitute(cols) rows_quoted <- substitute(rows) has_warned <- FALSE diff --git a/man/label_bquote.Rd b/man/label_bquote.Rd index 5cf006ead6..ed67ba909f 100644 --- a/man/label_bquote.Rd +++ b/man/label_bquote.Rd @@ -4,15 +4,14 @@ \alias{label_bquote} \title{Label with mathematical expressions} \usage{ -label_bquote(rows = NULL, cols = NULL, default = label_value) +label_bquote(rows = NULL, cols = NULL, default) } \arguments{ \item{rows}{Backquoted labelling expression for rows.} \item{cols}{Backquoted labelling expression for columns.} -\item{default}{Default labeller function for the rows or the -columns when no plotmath expression is provided.} +\item{default}{Unused, kept for compatibility.} } \description{ \code{label_bquote()} offers a flexible way of labelling