Update template_detector.R

ropensci · May 2, 2024 · b3e6d31 · b3e6d31
1 parent dbba26f
commit b3e6d31
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/template_detector.R b/R/template_detector.R
@@ -196,7 +196,7 @@ template_detector <-
     if (all(is.na(sel_table_df$start)) & verbose) {
       print(x = "no sound events above threshold were detected")
     } else if (all(sel_table_df$sound.files %in% list.files(path = corr_call_path)) &
-      all(!is.na(sel_table_df$start))) {
+      any(!is.na(sel_table_df$start))) {
       sel_table_df <-
         warbleR::selection_table(
           X = sel_table_df[!is.na(sel_table_df$start), ],