✨ forward 'thoughtSignature' with Google Gemini (#870)

Author: simonpcouch

R/content.R

@@ -202,14 +202,17 @@ show_image <- function(x) {
 #' @param arguments Named list of arguments to call the function with.
 #' @param tool ellmer automatically matches a tool request to the tools defined
 #'   for the chatbot. If `NULL`, the request did not match a defined tool.
+#' @param extra Provider-specific metadata associated with the tool request.
+#'   Automatically managed by \pkg{ellmer}.
 ContentToolRequest <- new_class(
   "ContentToolRequest",
   parent = Content,
   properties = list(
     id = prop_string(),
     name = prop_string(),
     arguments = class_list,
-    tool = NULL | ToolDef
+    tool = NULL | ToolDef,
+    extra = class_list
   )
 )
 method(format, ContentToolRequest) <- function(

R/provider-google.R

@@ -327,10 +327,14 @@ method(value_turn, ProviderGoogleGemini) <- function(
         ContentText(content$text)
       }
     } else if (has_name(content, "functionCall")) {
+      extra <- compact(list(
+        thoughtSignature = content$thoughtSignature
+      ))
       ContentToolRequest(
         content$functionCall$name,
         content$functionCall$name,
-        content$functionCall$args
+        content$functionCall$args,
+        extra = extra
       )
     } else if (has_name(content, "inlineData")) {
       ContentImageInline(
@@ -456,12 +460,13 @@ method(as_json, list(ProviderGoogleGemini, ContentToolRequest)) <- function(
   x,
   ...
 ) {
-  list(
+  compact(list(
     functionCall = list(
       name = x@id,
       args = x@arguments
-    )
-  )
+    ),
+    thoughtSignature = x@extra$thoughtSignature
+  ))
 }
 
 # https://ai.google.dev/api/caching#FunctionResponse