Error in core_output$chatgpt_role[i] <- request_content$choices[[i]]$message$role : replacement has length zero

[gunawebs]

dt_prompts = data.table::data.table('prompts_content' = chatPrompts$ChatGPT_Prompt, 'prompts_role' = chatPrompts$prompts_role,'prompt_id' = chatPrompts$PromptId)
  gptResponse <- chatgpt(prompt_role_var = dt_prompts$prompts_role
          , prompt_content_var = dt_prompts$prompts_content
          , id_var = dt_prompts$prompt_id, param_max_tokens=10000, param_n=5)

when I try to run the above code, it gives this error

Error in core_output$chatgpt_role[i] <- request_content$choices[[i]]$message$role : 
replacement has length zero

[gunawebs]

I dont think I did any change, but now it seemed to work.

[ben-aaron188]

OK - seems to have been an installation issue. Let me know if anything else is not working.