# \donttest{
if (interactive()) {
# Test by passing a URL directly
check_api(url = "https://api.openai.com/v1")
# Test a model directly
model <- create_openai()$language_model("gpt-4o")
check_api(model)
}
# }
Run the code above in your browser using DataLab