bugfix if only one wave is given

SFB-ELAINE · Feb 21, 2023 · 946d0c5 · 946d0c5
1 parent c44104a
commit 946d0c5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plotWaveforms.R b/R/plotWaveforms.R
@@ -150,8 +150,8 @@ plotWaveforms <- function(input_data = NULL,
   if(plot_waveforms == "all"){
     waveforms <-  unique(input_data$ID)
   }else if(plot_waveforms == "one"){
-    waveforms <-  unique(input_data$ID)[
-      floor(length(unique(input_data$ID))/2)]
+    which_wave <- max(floor(length(unique(input_data$ID))/2), 1)
+    waveforms <-  unique(input_data$ID)[which_wave]
   }else{
     waveforms <- NA
   }