add is.voiced.default

bnosac · Mar 18, 2024 · 0ca8192 · 0ca8192
1 parent d3162ca
commit 0ca8192
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(is.voiced,"webrtc-gmm")
+S3method(is.voiced,default)
 S3method(print,VAD)
 export(VAD)
 export(is.voiced)

diff --git a/R/vad.R b/R/vad.R
@@ -162,6 +162,13 @@ is.voiced <- function(x, units = "seconds", ...){
     x
 }
 
+#' @param silence_min minimum duration of a segment with only silence 
+#' @param voiced_min minimum duration of a voiced segment 
+#' @export
+is.voiced.default <- function(x, units = c("seconds", "milliseconds"), silence_min = ifelse(units == "milliseconds", 1000, 1), voiced_min = ifelse(units == "milliseconds", 1000, 1), ...){
+    "is.voiced.webrtc-gmm"(x, units = units, silence_min = silence_min, voiced_min = voiced_min, ...)
+}
+
 
 segment_collapse <- function(x){
     x <- do.call(rbind, lapply(split(x, list(x$vad_segment, x$has_voice), drop = TRUE), FUN = function(x){