Error in strsplit of k

[Qamosse]

Hello,

Since today, when trying the exact same code that worked as intended last Friday, i have the following error:

 res <- gptcelltype(all.markers,                     
                    tissuename = "mouse brain",
                    model = "gpt-4o",
                    )

[1] "Note: OpenAI API key found: returning the cell type annotations."
Error in strsplit(k$choices[, "message.content"], "\n") : 
  non-character argument

When I tried to print "k" to check what was the input of the "strsplit" this was the output:

[1] "Note: OpenAI API key found: returning the cell type annotations."
$id
[1] "chatcmpl-AUrzbBhtlFrKsL5IpuK4V7WuG5rcN"

$object
[1] "chat.completion"

$created
[1] 1731920751

$model
[1] "gpt-4o-2024-08-06"

$choices
  index logprobs finish_reason message.role message.content message.refusal
1     0       NA          stop    assistant              NA              NA

$usage
$usage$prompt_tokens
[1] 108

$usage$completion_tokens
[1] 1

$usage$total_tokens
[1] 109

$usage$prompt_tokens_details
$usage$prompt_tokens_details$cached_tokens
[1] 0

$usage$prompt_tokens_details$audio_tokens
[1] 0


$usage$completion_tokens_details
$usage$completion_tokens_details$reasoning_tokens
[1] 0

$usage$completion_tokens_details$audio_tokens
[1] 0

$usage$completion_tokens_details$accepted_prediction_tokens
[1] 0

$usage$completion_tokens_details$rejected_prediction_tokens
[1] 0



$system_fingerprint
[1] "fp_45cf54deae"

Error in strsplit(k$choices[, "message.content"], "\n") : 
  non-character argument
Called from: strsplit(k$choices[, "message.content"], "\n")

This is the content of "k":

Does it happen to anybody else?

Thank you,

Quentin