# \donttest{
if (interactive()) {
volcengine <- create_volcengine()
# Chat API (standard models)
model <- volcengine$language_model("doubao-1-5-pro-256k-250115")
result <- generate_text(model, "Hello")
# Responses API (reasoning models like DeepSeek)
model <- volcengine$responses_model("deepseek-r1-250120")
# Default: max_tokens limits total output (reasoning + answer)
result <- model$generate(messages = msgs, max_tokens = 2000)
# Advanced: limit only the answer part (reasoning can be longer)
result <- model$generate(messages = msgs, max_answer_tokens = 500)
# Smart model selection (auto-detects best API)
model <- volcengine$smart_model("deepseek-r1-250120")
}
# }
Run the code above in your browser using DataLab