diff --git a/R/plugins.R b/R/plugins.R index ceb5af8..a321490 100644 --- a/R/plugins.R +++ b/R/plugins.R @@ -40,7 +40,7 @@ tau_tooltip <- function(tau, fields = NULL) { #' tau_legend() tau_legend <- function(tau) { - if ((!is.null(tau$x$color)) | (!is.null(tau$x$size))) { + if ((!is.null(tau$x$color)) & (!is.null(tau$x$size))) { message("Neither color nor size aesthetics have been mapped. Legend plugin will be active but not displayed.") }