bug fix: plot(heart.fft, main = NA) yielded an error (as n_char was N…

…A, rather than 0).
hneth · Sep 4, 2024 · 7233196 · 7233196
1 parent 5e2fc65
commit 7233196
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/util_plot.R b/R/util_plot.R
@@ -422,7 +422,11 @@ get_x_dev <- function(string, csf = .80){
   # csf: constant scaling factor
   # Returns a difference value that depends on string width (from min = .15 upwards).
 
-  n_char <- nchar(string)
+  if (!is.na(string)) {
+    n_char <- nchar(string)
+  } else {
+    n_char <- 0
+  }
 
   if (n_char > 15){ # widen rectangle: