> # Use the provider
> chat <- chat_openai(
+   base_url = "https://api.deepseek.com/v1",
+   api_key = "sk-xxx",
+   model = "deepseek-chat",
+   system_prompt = "You are a helpful assistant. Please provide responses in JSON format.",
+   api_args = list(
+     response_format = list(type = "json_object") 
+   )
+ )
> 
> 
> chat$chat("What is the capital of France?")
{
  "response": "The capital of France is Paris."
}

> text <- "
+   The product was okay, but the customer service was terrible. I probably
+   won't buy from them again.
+ "
> 
> type_sentiment <- type_object(
+   "Extract the sentiment scores of a given text. Sentiment scores should sum to 1.",
+   positive_score = type_number("Positive sentiment score, ranging from 0.0 to 1.0."),
+   negative_score = type_number("Negative sentiment score, ranging from 0.0 to 1.0."),
+   neutral_score = type_number("Neutral sentiment score, ranging from 0.0 to 1.0.")
+ )
> 
> 
> str(chat$extract_data(text, type = type_sentiment))
Error in S7_inherits(type, "TypeObject") : 
  `class` must be an <S7_class> or NULL

> library(httr2)
> 
> # Function to make the request
> make_request <- function(api_key) {
+   request("https://api.deepseek.com/v1/chat/completions") |>
+     req_headers(
+       "Content-Type" = "application/json",
+       "Authorization" = paste("Bearer", api_key)
+     ) |>
+     req_body_json(list(
+       model = "deepseek-chat",
+       messages = list(
+         list(
+           role = "system",
+           content = "You are a helpful assistant. Please provide responses in JSON format."
+         ),
+         list(
+           role = "user", 
+           content = "Extract sentiment scores for this text with scores summing to 1.0: The product was okay, but the customer service was terrible."
+         )
+       ),
+       response_format = list(
+         type = "json_object"  # Changed this to match Deepseek's format
+       )
+     )) |>
+     req_perform() |>
+     resp_body_json()
+ }
> 
> # Use the function
> response <- `make_request("api-xxx")`
> str(response)
List of 7
 $ id                : chr "ebdebcbb-f3a8-4b44-a4c0-7ce55e2585b0"
 $ object            : chr "chat.completion"
 $ created           : int 1736663650
 $ model             : chr "deepseek-chat"
 $ choices           :List of 1
  ..$ :List of 4
  .. ..$ index        : int 0
  .. ..$ message      :List of 2
  .. .. ..$ role   : chr "assistant"
  .. .. ..$ content: chr "{\n  \"sentiment_scores\": {\n    \"positive\": 0.3,\n    \"neutral\": 0.4,\n    \"negative\": 0.3\n  }\n}"
  .. ..$ logprobs     : NULL
  .. ..$ finish_reason: chr "stop"
 $ usage             :List of 5
  ..$ prompt_tokens           : int 54
  ..$ completion_tokens       : int 43
  ..$ total_tokens            : int 97
  ..$ prompt_cache_hit_tokens : int 0
  ..$ prompt_cache_miss_tokens: int 54
 $ system_fingerprint: chr "fp_3a5770e1b4"