Fix run_benchmark_once: message(<condition>) escapes tryCatch under testthat

The tryCatch handlers in run_benchmark_once() called `message(e)` where
`e` is the caught condition. R's `message()` re-signals any condition
passed to it. Under testthat's calling handlers, signaling an error
condition is treated as a test error — which escapes the tryCatch
even though tryCatch *did* catch it.

This caused test-run_benchmark to fail on GitHub Actions whenever the
g:Profiler API returned malformed JSON (e.g. for fruit fly → human).
The all_genes() and convert_orthologs() calls were supposed to record
NA and continue, but the test errored at line 9 instead.

Fix: pass `conditionMessage(e)` (a plain string) to `message()` so it
prints the message text without re-signaling the condition.

Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>

Author: bschilder

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: orthogene
 Type: Package
 Title: Gene mapping made easy  
-Version: 1.17.3
+Version: 1.17.4
 Authors@R:
     c( 
      person(given = "Brian",

NEWS.md

@@ -1,3 +1,16 @@
+# orthogene 1.17.4
+
+## Bug fixes
+
+* `run_benchmark_once()`: replace `message(e)` with
+    `message(conditionMessage(e))` inside the `tryCatch` error handlers.
+    Passing a condition object to `message()` re-signals it, and under
+    testthat's calling handlers an error condition signaled this way escapes
+    the `tryCatch` and is reported as a test failure — even though
+    `tryCatch` did catch it. This caused `test-run_benchmark` to fail on
+    GitHub Actions whenever the g:Profiler API returned malformed JSON, even
+    though `run_benchmark_once()` was supposed to record `NA` and move on.
+
 # orthogene 1.17.3
 
 ## Bug fixes

R/run_benchmark_once.R

@@ -30,10 +30,13 @@ run_benchmark_once <- function(species,
             ) 
         },
         error = function(e) {
-            message(e) 
+            ## Pass conditionMessage() rather than the condition itself —
+            ## message(<condition>) re-signals the condition, which testthat's
+            ## calling handlers then treat as a test error, escaping tryCatch.
+            message("all_genes() failed: ", conditionMessage(e))
             NA
         }
-    ) 
+    )
     if (is.data.frame(gene_map1)){
         time1 <- gene_map1$time[1]
     } else {
@@ -78,7 +81,9 @@ run_benchmark_once <- function(species,
                 )
             },
             error = function(e) {
-                message(e)
+                ## See comment above: message(<condition>) re-signals the
+                ## condition and escapes tryCatch under testthat.
+                message("convert_orthologs() failed: ", conditionMessage(e))
                 NA
             }
         )