don't include tool_calls in chat response

tadascience · Mar 14, 2024 · 98258f6 · 98258f6
1 parent 4084243
commit 98258f6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/chat.R b/R/chat.R
@@ -47,7 +47,8 @@ resp_chat <- function(response, error_call = current_env()) {
   data <- resp_body_json(response)
 
   tib <- map_dfr(data$choices, \(choice) {
-    as_tibble(choice$message)
+    tibble(role = choice$message$role,
+           content = choice$message$content)
   })
 
   class(tib) <- c("chat_tibble", class(tib))