maad_wave allow WaveMC class

edwbaker · Aug 10, 2024 · eac8ad9 · eac8ad9
1 parent 52d06d4
commit eac8ad9
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/scikit-maad-sound.R b/R/scikit-maad-sound.R
@@ -35,7 +35,11 @@ maad_spectrogram <- function(wave, mode="power", ..., maad=NULL) {
 
 maad_wave <- function(wave) {
  #ToDo: Process wave to be expected as maad.
+  if (inherits(wave, c("WaveMC", "TaggedWaveMC"))) {
+    return(reticulate::np_array(wave@`.Data`[,1]))
+  } else if (inherits(wave, c("Wave", "TaggedWave"))) {
     return(reticulate::np_array(wave@left))
+  }
 }
 
 #' Compute a spectrum of a sound wave using scikit-maad