exclude NA when computing scale: fixes #193

gavinsimpson · Oct 19, 2022 · e5c3d14 · e5c3d14
1 parent 95d1f4c
commit e5c3d14
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/smooth-estimates.R b/R/smooth-estimates.R
@@ -1014,7 +1014,7 @@
         guide_title <- "Partial\neffect"
         plot_var <- "est"
         guide_limits <- if (is.null(ylim)) {
-            c(-1, 1) * max(abs(object[[plot_var]]))
+            c(-1, 1) * max(abs(object[[plot_var]]), na.rm = TRUE)
         } else {
             ylim
         }
@@ -1132,7 +1132,7 @@
         guide_title <- "Partial\neffect"
         plot_var <- "est"
         guide_limits <- if (is.null(ylim)) {
-            c(-1, 1) * max(abs(object[[plot_var]]))
+            c(-1, 1) * max(abs(object[[plot_var]]), na.rm = TRUE)
         } else {
             ylim
         }
@@ -1268,7 +1268,7 @@
         guide_title <- "Partial\neffect"
         plot_var <- "est"
         guide_limits <- if (is.null(ylim)) {
-            c(-1, 1) * max(abs(object[[plot_var]]))
+            c(-1, 1) * max(abs(object[[plot_var]]), na.rm = TRUE)
         } else {
             ylim
         }
@@ -1578,7 +1578,7 @@
         guide_title <- "Partial\neffect"
         plot_var <- "est"
         guide_limits <- if (is.null(ylim)) {
-            c(-1, 1) * max(abs(object[[plot_var]]))
+            c(-1, 1) * max(abs(object[[plot_var]]), na.rm = TRUE)
         } else {
             ylim
         }