Remove fal.api backend and subtitles dependency

DESCRIPTION

@@ -15,7 +15,6 @@ Imports:
     jsonlite
 Suggests:
     audio.whisper,
-    fal.api,
     gpu.ctl,
     processx,
     tinytest,

R/internal_backend.R

@@ -72,13 +72,8 @@
   segments
 }
 
-# Check if fal.api is available
-.has_fal <- function() {
-  requireNamespace("fal.api", quietly = TRUE)
-}
-
 # Choose backend based on availability and user preference
-.choose_backend <- function(backend = c("auto", "whisper", "audio.whisper", "openai", "fal")) {
+.choose_backend <- function(backend = c("auto", "whisper", "audio.whisper", "openai")) {
   backend <- match.arg(backend)
 
   if (backend == "openai") {
@@ -117,18 +112,6 @@
     return("audio.whisper")
   }
 
-  if (backend == "fal") {
-    # Explicit fal.api request - verify it's available
-    if (!.has_fal()) {
-      stop(
-        "Backend 'fal' requested but fal.api package is not installed.\n",
-        "Install with: remotes::install_github('cornball-ai/fal.api')",
-        call. = FALSE
-      )
-    }
-    return("fal")
-  }
-
   # Auto mode: try backends in priority order
   # 1. Native whisper (fastest, no external dependencies)
   if (.has_whisper()) {
@@ -145,18 +128,12 @@
     return("openai")
   }
 
-  # 4. fal.api (cloud fallback)
-  if (.has_fal()) {
-    return("fal")
-  }
-
   stop(
     "No transcription backend available.\n",
     "Either:\n",
     "  - Install whisper: remotes::install_github('cornball-ai/whisper'), or\n",
     "  - Install audio.whisper: install.packages('audio.whisper', repos = 'https://bnosac.github.io/drat'), or\n",
-    "  - Set an API endpoint with set_stt_base(), or\n",
-    "  - Install fal.api: remotes::install_github('cornball-ai/fal.api')",
+    "  - Set an API endpoint with set_stt_base()",
     call. = FALSE
   )
 }

R/internal_whisper.R

@@ -120,9 +120,9 @@ clear_native_whisper_cache <- function() {
     raw = result
   )
 
-  # Pass through word-level tokens if available
-  if (!is.null(result$words) && nrow(result$words) > 0 && !is.null(segments)) {
-    out$tokens <- subtitles::words_to_tokens(result$words, segments)
+  # Pass through word-level timestamps if available
+  if (!is.null(result$words) && nrow(result$words) > 0) {
+    out$words <- result$words
   }
 
   out

R/stt.R

@@ -13,8 +13,8 @@
 #' @param response_format Response format for API backend. One of "text",
 #'   "json", or "verbose_json". Ignored for audio.whisper backend.
 #' @param backend Which backend to use: "auto" (default), "whisper",
-#'   "audio.whisper", "openai", or "fal". Auto mode tries native whisper first,
-#'   then audio.whisper, then openai API (if configured), then fal.api.
+#'   "audio.whisper", or "openai". Auto mode tries native whisper first,
+#'   then audio.whisper, then openai API (if configured).
 #'
 #' @return A list with components:
 #' \describe{
@@ -52,7 +52,7 @@ stt <- function(
   model = NULL,
   language = NULL,
   response_format = c("json", "text", "verbose_json"),
-  backend = c("auto", "whisper", "audio.whisper", "openai", "fal"),
+  backend = c("auto", "whisper", "audio.whisper", "openai"),
   prompt = NULL
 ) {
 
@@ -88,12 +88,6 @@ stt <- function(
       model = model,
       language = language
     )
-  } else if (resolved_backend == "fal") {
-    .via_fal(
-      file = file,
-      model = model,
-      language = language
-    )
   } else {
     # audio.whisper backend
     .via_audio_whisper(

cran-comments.md

@@ -15,6 +15,5 @@
 The NOTE about "Suggests or Enhances not in mainstream repositories" refers to:
 - `audio.whisper`: Available on GitHub (bnosac/audio.whisper)
 - `gpu.ctl`: Internal package for GPU resource management
-- `whisper`: Available on GitHub (cornball-ai/whisper), submitted to CRAN
 
 These are optional backends and the package works without them.

man/dot-via_audio_whisper.Rd

@@ -3,12 +3,7 @@
 \alias{.via_audio_whisper}
 \title{Internal: Transcribe via audio.whisper package}
 \usage{
-.via_audio_whisper(
-  file,
-  model = NULL,
-  language = NULL,
-  token_timestamps = FALSE
-)
+.via_audio_whisper(file, model = NULL, language = NULL, token_timestamps = FALSE)
 }
 \arguments{
 \item{file}{Character. Path to the audio file to transcribe.}

man/stt.Rd

@@ -3,14 +3,9 @@
 \alias{stt}
 \title{Speech to Text}
 \usage{
-stt(
-  file,
-  model = NULL,
-  language = NULL,
-  response_format = c("json", "text", "verbose_json"),
-  backend = c("auto", "whisper", "audio.whisper", "openai", "fal"),
-  prompt = NULL
-)
+stt(file, model = NULL, language = NULL,
+    response_format = c("json", "text", "verbose_json"),
+    backend = c("auto", "whisper", "audio.whisper", "openai"), prompt = NULL)
 }
 \arguments{
 \item{file}{Path to the audio file to convert.}
@@ -27,8 +22,8 @@ to improve transcription accuracy.}
 "json", or "verbose_json". Ignored for audio.whisper backend.}
 
 \item{backend}{Which backend to use: "auto" (default), "whisper",
-"audio.whisper", "openai", or "fal". Auto mode tries native whisper first,
-then audio.whisper, then openai API (if configured), then fal.api.}
+"audio.whisper", or "openai". Auto mode tries native whisper first,
+then audio.whisper, then openai API (if configured).}
 
 \item{prompt}{Optional text to guide the transcription. For API backend,
 this is passed as initial_prompt to help with spelling of names,