Fix chat_structured(echo = "text") for tool-based structured output

R/chat-structured.R

@@ -22,6 +22,17 @@ extract_data <- function(turn, type, convert = TRUE, needs_wrapper = FALSE) {
   out
 }
 
+# Tool-based structured output can't stream (#977)
+uses_tool_structured_output <- function(provider, type) {
+  if (S7_inherits(provider, ProviderAWSBedrock)) {
+    TRUE
+  } else if (S7_inherits(provider, ProviderAnthropic)) {
+    !has_claude_structured_output(provider@model)
+  } else {
+    FALSE
+  }
+}
+
 # OpenAI only works with objects, so we wrap and unwrap as needed
 type_needs_wrapper <- function(type, provider) {
   S7_inherits(provider, ProviderOpenAICompatible) &&

R/chat.R

@@ -246,10 +246,13 @@ Chat <- R6::R6Class(
       needs_wrapper <- type_needs_wrapper(type, private$provider)
       type <- wrap_type_if_needed(type, needs_wrapper)
 
+      stream <- echo != "none" &&
+        !uses_tool_structured_output(private$provider, type)
+
       coro::collect(private$submit_turns(
         turn,
         type = type,
-        stream = echo != "none",
+        stream = stream,
         echo = echo,
         controller = stream_controller()
       ))
@@ -280,10 +283,13 @@ Chat <- R6::R6Class(
       needs_wrapper <- type_needs_wrapper(type, private$provider)
       type <- wrap_type_if_needed(type, needs_wrapper)
 
+      stream <- echo != "none" &&
+        !uses_tool_structured_output(private$provider, type)
+
       done <- coro::async_collect(private$submit_turns_async(
         turn,
         type = type,
-        stream = echo != "none",
+        stream = stream,
         echo = echo,
         controller = stream_controller()
       ))

R/provider-aws.R

@@ -268,7 +268,6 @@ method(chat_request, ProviderAWSBedrock) <- function(
     )
     tools[[tool_def@name]] <- tool_def
     tool_choice <- list(tool = list(name = tool_def@name))
-    stream <- FALSE
   } else {
     tool_choice <- NULL
   }

R/provider-claude.R

@@ -221,7 +221,6 @@ method(chat_body, ProviderAnthropic) <- function(
       )
       tools[[tool_def@name]] <- tool_def
       tool_choice <- list(type = "tool", name = tool_def@name)
-      stream <- FALSE
       output_config <- NULL
     }
   } else {