resolve OpenRouter tool calling failures

R/content.R

@@ -322,7 +322,7 @@ tool_string <- function(x) {
     paste(x@value, collapse = "\n")
   } else {
     withCallingHandlers(
-      jsonlite::toJSON(x@value, auto_unbox = TRUE),
+      to_json(x@value),
       error = function(err) {
         cli::cli_abort(
           c(

R/provider-databricks.R

@@ -179,7 +179,7 @@ method(as_json, list(ProviderDatabricks, ContentToolRequest)) <- function(
 ) {
   # Databricks seems to require encoding empty arguments as an empty
   # dictionary, rather than an empty array.
-  json_args <- jsonlite::toJSON(set_names(x@arguments))
+  json_args <- to_json(set_names(x@arguments))
   list(
     id = x@id,
     `function` = list(name = x@name, arguments = json_args),

R/provider-openai-compatible.R

@@ -405,7 +405,7 @@ method(as_json, list(ProviderOpenAICompatible, ContentToolRequest)) <- function(
   x,
   ...
 ) {
-  json_args <- jsonlite::toJSON(x@arguments)
+  json_args <- to_json(x@arguments)
   list(
     id = x@id,
     `function` = list(name = x@name, arguments = json_args),

R/provider-openai.R

@@ -421,7 +421,7 @@ method(as_json, list(ProviderOpenAI, ContentToolRequest)) <- function(
     type = "function_call",
     call_id = x@id,
     name = x@name,
-    arguments = jsonlite::toJSON(x@arguments)
+    arguments = to_json(x@arguments)
   )
 }
 
@@ -482,7 +482,7 @@ method(batch_submit, ProviderOpenAI) <- function(
       body = body
     )
   })
-  json <- map_chr(requests, jsonlite::toJSON, auto_unbox = TRUE)
+  json <- map_chr(requests, to_json)
   writeLines(json, path)
   # Then upload it
   uploaded <- openai_upload(provider, path)

R/utils.R

@@ -328,3 +328,7 @@ extract_custom_id <- function(json_string) {
 
   result[2] # Second element is the captured group
 }
+
+to_json <- function(x) {
+  jsonlite::toJSON(x, auto_unbox = TRUE)
+}

tests/testthat/_snaps/provider-openrouter.md

@@ -5,11 +5,11 @@
     Condition
       Error in `req_perform()`:
       ! HTTP 400 Bad Request.
-      * Expected temperature to be a number, received "hot"
+      i Invalid input: expected number, received string
     Code
       chat$chat("What is 1 + 1?", echo = TRUE)
     Condition
       Error in `req_perform_connection()`:
       ! HTTP 400 Bad Request.
-      * Expected temperature to be a number, received "hot"
+      i Invalid input: expected number, received string