names(thc) (`actual`) doesn't fully contain all the values in "id" (`expected`).
* Missing from `actual`: "id"
* Present in `actual`:   "success", "message", "type"

mesc<-handle_openai$messages$create(thc$id,role = "user",content = "hello",file_ids=list(file_id$id),verbosity = 3)
mesl<-handle_openai$messages$list(thread_id = thc$id,verbosity = 3)
mesc<-handle_openai$messages$create(thc$id,role = "user",content = "hello",file_ids=list(file_id$id),verbosity = 4)

mesc$object (`actual`) not equal to "thread.message" (`expected`).

`actual` is NULL
`expected` is a character vector ('thread.message')

Error in `expect_contains(mesl$data$id, mesc$id)`: `object` and `expected` must both be vectors

Error in `if (job_retrieve$status == "succeeded") {
    res <- handle_openai$models$delete(job_retrieve$fine_tuned_model)
    expect_true(res$deleted)
    break
}`: argument is of length zero

job2<-handle_openai$fine_tuning$create(model = "gpt-3.5-turbo",training_file = file_id$id)
res<-handle_openai$models$retrieve(model = "gpt-3.5-turbo",verbosity = 0)
res<-handle_openai$models$retrieve(model = "gpt-3.5-turbo",verbosity = 200)

modc$results$categories$violence is not TRUE

`actual` is NULL
`expected` is a logical vector (TRUE)

modc<-handle_openai$moderations$create(input = "I'll kill this bug",verbosity = 0)
modc<-handle_openai$moderations$create(input = "I'll kill this bug",verbosity = 4)

My responses are based on the file's content and current best medical practices. I am regularly updated to reflect the latest medical research and health guidelines.",
instructions="You are a weather bot. Use the provided functions to answer questions.",
description="Get the weather in location",
location=list(type="string",description="The city and state e.g. San Francisco, CA"),
description="Get the nickname of a city",
location=list(type="string",description="The city and state e.g. San Francisco, CA")
runct<-handle_openai$runs$create_tread(ass$id,thread=list(messages=list(list(role="user",content="What foods are good for heart health?"))),verbosity = 3)
runto<-handle_openai$runs$submit_tool_outputs(runct$thread_id,runct$id,tool_outputs = list(list(tool_call_id=runrs$required_action$submit_tool_outputs$tool_calls$id,output="BJ")),verbosity = 3)
runto<-handle_openai$runs$submit_tool_outputs(runct$thread_id,runct$id,tool_outputs = list(list(tool_call_id=runrs$required_action$submit_tool_outputs$tool_calls$id,output="BJ")),verbosity = 4)
runct<-handle_openai$runs$create_tread(ass$id,thread=list(messages=list(list(role="user",content="What foods are good for heart health?"))),verbosity = 4)