decrease frequency of certain messages and warnings - fixes #72

Author: corybrunson

R/geom-axis.r

@@ -250,8 +250,13 @@ GeomAxis <- ggproto(
 
     data <- ensure_cartesian_polar(data)
 
-    if (! coord$is_linear())
-      warning("Axes are not yet tailored to non-linear coordinates.")
+    if (! coord$is_linear()) {
+      rlang::warn(
+        "Axes are not yet tailored to non-linear coordinates.",
+        .frequency = "regularly",
+        .frequency_id = "GeomAxis$draw_panel-is_linear"
+      )
+    }
 
     # extract value ranges
     ranges <- coord$range(panel_params)

R/geom-interpolation.r

@@ -152,6 +152,11 @@ GeomInterpolation <- ggproto(
 
     if (! coord$is_linear()) {
       warning("Interpolation is not yet tailored to non-linear coordinates.")
+      rlang::warn(
+        "Interpolation is not yet tailored to non-linear coordinates.",
+        .frequency = "regularly",
+        .frequency_id = "GeomInterpolation$draw_panel-is_linear"
+      )
     }
     type <- match.arg(type, c("centroid", "sequence"))
     # reverse ends of `arrow`

R/geom-isoline.r

@@ -108,7 +108,10 @@ GeomIsoline <- ggproto(
 
     # allow only `by` or `num`, not both
     if (! is.null(params[["by"]]) && ! is.null(params[["num"]])) {
-      warning("Both `by` and `num` provided; ignoring `num`.")
+      rlang::warn(
+        "Both `by` and `num` provided; ignoring `num`.",
+        .frequency = "once", .frequency_id = "GeomIsoline$setup_params-by-num"
+      )
       params$num <- NULL
     } else if (is.null(params[["by"]]) && is.null(params[["num"]])) {
       params$num <- 6L

R/geom-rule.r

@@ -175,8 +175,13 @@ GeomRule <- ggproto(
     na.rm = FALSE
   ) {
 
-    if (! coord$is_linear())
-      warning("Axes are not yet tailored to non-linear coordinates.")
+    if (! coord$is_linear()) {
+      rlang::warn(
+        "Rulers are not yet tailored to non-linear coordinates.",
+        .frequency = "regularly",
+        .frequency_id = "GeomRule$draw_panel-is_linear"
+      )
+    }
 
     # extract value ranges
     ranges <- coord$range(panel_params)

R/geom-text-radiate.r

@@ -75,7 +75,10 @@ GeomTextRadiate <- ggproto(
     na.rm = FALSE,
     check_overlap = FALSE
   ) {
-    warning("`GeomTextRadiate` is deprecated; use `GeomVector` instead.")
+    rlang::warn(
+      "`GeomTextRadiate` is deprecated; use `GeomVector` instead.",
+      .frequency = "regularly", .frequency_id = "GeomTextRadiate$draw_panel"
+    )
 
     if (is.character(data$hjust)) {
       data$hjust <- compute_just(data$hjust, data$x)

R/geom-vector.r

@@ -124,7 +124,11 @@ GeomVector <- ggproto(
   ) {
 
     if (! coord$is_linear()) {
-      warning("Vectors are not yet tailored to non-linear coordinates.")
+      rlang::warn(
+        "Vectors are not yet tailored to non-linear coordinates.",
+        .frequency = "regularly",
+        .frequency_id = "GeomVector$draw_panel-is_linear"
+      )
     }
 
     # initialize grob list

R/stat-center.r

@@ -70,7 +70,11 @@ StatCenter <- ggproto(
     # deprecate `fun.center`
     if (! is.null(params$fun.center)) {
       if (is.null(params$fun)) {
-        warning("`fun.center` is deprecated; use `fun` instead.")
+        rlang::warn(
+          "`fun.center` is deprecated; use `fun` instead.",
+          .frequency = "regularly",
+          .frequency_id = "StatCenter$setup_params-fun"
+        )
         params$fun <- params$fun.center
       } else {
         warning("`fun` will be used instead of `fun.center`.")
@@ -230,7 +234,10 @@ make_center_fun <- function(
 
   } else {
 
-    message("No center (limit) function(s) supplied; defaulting to `mean_se()`")
+    rlang::inform(
+      "No center function supplied; defaulting to `mean_se()`",
+      .frequency = "once", .frequency_id = "make_center_fun-fun"
+    )
     function(df) {
       x_data <- mean_se(df$x)
       names(x_data) <- c("x", "xmin", "xmax")

R/stat-scale.r

@@ -47,7 +47,10 @@ StatScale <- ggproto(
   required_aes = c("x", "y"),
 
   compute_group = function(data, scales, mult = 1) {
-    warning("`StatScale` is deprecated and will be removed next release.")
+    rlang::warn(
+      "`StatScale` is deprecated and will be removed next release.",
+      .frequency = "regularly", .frequency_id = "StatScale$compute_group"
+    )
     data[, c("x", "y")] <- data[, c("x", "y")] * mult
     data
   }

R/stat-spantree.r

@@ -92,8 +92,12 @@ StatSpantree <- ggproto(
         stop("No spantree engine installed; requires one of the following:\n",
              "{", paste(mst_engines, collapse = "}, {"), "}")
       } else {
-        warning("Package {", engine, "} not installed; ",
-                "using {", engine_alt[[1L]], "} instead.")
+        rlang::warn(
+          paste("Package {", engine, "} not installed; ",
+                "using {", engine_alt[[1L]], "} instead."),
+          .frequency = "regularly",
+          .frequency_id = "StatSpantree$compute_group-engine"
+        )
         engine <- engine_alt[[1L]]
       }
     }
@@ -103,8 +107,12 @@ StatSpantree <- ggproto(
       engine,
       mlpack = {
         if (method != "euclidean") {
-          warning("{", engine, "} engine uses the euclidean distance; ",
-                  "`method` will be ignored.")
+          rlang::warn(
+            paste("{", engine, "} engine uses the euclidean distance; ",
+                  "`method` will be ignored."),
+            .frequency = "regularly",
+            .frequency_id = "StatSpantree$compute_group-links"
+          )
         }
         # minimum spanning tree (euclidean distance)
         data_emst <- mlpack::emst(data_ord)

R/utils.r

@@ -85,9 +85,12 @@ setup_elts_data <- function(data, params) {
 
   # print note if both `elements` and `subset` are passed
   if (! is.null(params$subset)) {
-    message(
-      "`subset` will be applied after data are restricted to ",
-      params$elements, " elements."
+    rlang::inform(
+      paste0(
+        "`subset` will be applied after data are restricted to ",
+        params$elements, " elements."
+      ),
+      .frequency = "once", .frequency_id = "setup_elts_data-subset"
     )
   }