increase duration to make sure we have a segment

Author: jwijffels

inst/tinytest/test-multiple-offsets.R

@@ -13,13 +13,13 @@ if(Sys.getenv("TINYTEST_CI", unset = "yes") == "yes"){
   download.file("https://github.com/jwijffels/example/raw/main/example.wav", "example.wav")
   model <- whisper("tiny")
   trans <- predict(model, newdata = "example.wav", language = "en", 
-                   offset = c(7*1000, 60*1000), duration = c(4*1500, 2*1000))
+                   offset = c(7*1000, 60*1000), duration = c(6*1000, 5*1000))
   expect_equal(trans$n_segments, 2)
   expect_equal(nrow(trans$data), 2)
 
   ## Multiple sections
   if(require(data.table) && require(audio)){
-  sections <- data.frame(start = c(7*1000, 60*1000), duration = c(6*1000, 2*1000))
+  sections <- data.frame(start = c(7*1000, 60*1000), duration = c(6*1000, 5*1000))
   trans    <- predict(model, newdata = "example.wav", language = "en", sections = sections)
   expect_equal(trans$n_segments, 2)
   expect_equal(nrow(trans$data), 2)