ass$name (`actual`) not equal to "cor_flag" (`expected`).

`actual` is NULL
`expected` is a character vector ('cor_flag')

instructions="I am HealthNutritionAssistant, designed to provide professional and accurate health and nutrition advice.
My primary function is to answer health or nutrition related questions using the uploaded file “assfile.csv,” which contains common health and nutrition questions and their answers.
When a user asks a health or nutrition question, I'll first consult this file.
If it contains a relevant answer, I will use it to respond.
If the file lacks a direct answer, I'll offer general advice based on my broad knowledge and suggest consulting a professional doctor or nutritionist for specific issues.
I'll always clarify the source of my information, like “According to our health FAQs...” I encourage users to seek professional medical advice for specific health concerns.
I do not collect or store personal health information.
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."
file_id <- handle_openai$files$upload(path = train_file_path,purpose = "assistants",verbosity = 0)
#this is a openai bug,the first is success ,but return is error,so we neet run two
instructions="I am HealthNutritionAssistant",verbosity = 4

assr$name (`actual`) not equal to "cor_flag" (`expected`).

`actual` is NULL
`expected` is a character vector ('cor_flag')

assm$model (`actual`) not equal to "gpt-4-1106-preview" (`expected`).

`actual` is NULL
`expected` is a character vector ('gpt-4-1106-preview')

Error in `expect_contains(assl$data$name, "cor_flag")`: `object` and `expected` must both be vectors

nrow(streamlg$vres) (`actual`) not equal to 3 (`expected`).

`actual` is NULL
`expected` is a double vector (3)

messages = data.frame(role = c("system", "user"),
content = c("You are a assistant.", "How's the weather today?")),
expect_equal(text$message,"parse error: trailing garbage\n                              \"message\": \"'sdasd' is not of type 'inte\n                     (right here) ------^\n")
expect_equal(text$message,"non-numeric argument to binary operator")
Sys.setenv(TEST_EX_COND = "error chatstream active next value")
expect_equal(text$message,"error chatstream active next value")
Sys.setenv(TEST_EX_COND = "error chatstream check is not curl")
Sys.setenv(TEST_EX_COND = "error chatstream active isOpen")
Sys.setenv(TEST_EX_COND = "error chatstream data_source open is fail")
Sys.setenv(TEST_EX_COND = "error chatstream close")