put benchmark back

Author: jwijffels

R/whisper.R

@@ -221,6 +221,6 @@ whisper_download_model <- function(x = c("tiny", "tiny.en", "base", "base.en", "
 whisper_benchmark <- function(object = whisper(system.file(package = "audio.whisper", "models", "for-tests-ggml-tiny.bin")), 
                               threads = 1){
   stopifnot(inherits(object, "whisper"))
-  #whisper_print_benchmark(object$model, threads)
+  whisper_print_benchmark(object$model, threads)
   invisible()
 }

src/rcpp_whisper.cpp

@@ -491,7 +491,7 @@ Rcpp::List whisper_encode(SEXP model, std::string path, std::string language,
 
 
 
-/*
+
 // [[Rcpp::export]]
 void whisper_print_benchmark(SEXP model, int n_threads = 1) {
   whisper_params params;
@@ -501,12 +501,12 @@ void whisper_print_benchmark(SEXP model, int n_threads = 1) {
   struct whisper_context * ctx = whispermodel->ctx;
   Rprintf("\n");
   Rprintf("system_info: n_threads = %d / %d | %s\n", params.n_threads, std::thread::hardware_concurrency(), whisper_print_system_info());
-  if (int ret = whisper_set_mel(ctx, nullptr, 0, WHISPER_N_MEL)) {
+  const int n_mels = whisper_model_n_mels(ctx);
+  if (int ret = whisper_set_mel(ctx, nullptr, 0, n_mels)) {
     Rprintf("error: failed to set mel: %d\n", ret);
   }
   if (int ret = whisper_encode(ctx, 0, params.n_threads) != 0) {
     Rprintf("error: failed to encode model: %d\n", ret);
   }
   whisper_print_timings(ctx);
 }
- */