# \donttest{
if (interactive()) {
# Basic usage with deepseek-chat
deepseek <- create_deepseek()
model <- deepseek$language_model("deepseek-chat")
result <- generate_text(model, "Hello!")
# Using deepseek-reasoner for chain-of-thought reasoning
model_reasoner <- deepseek$language_model("deepseek-reasoner")
result <- model_reasoner$generate(
messages = list(list(role = "user", content = "Solve: What is 15 * 23?")),
max_tokens = 500
)
print(result$text) # Final answer
print(result$reasoning) # Chain-of-thought reasoning
# Streaming with reasoning
stream_text(model_reasoner, "Explain quantum entanglement step by step")
}
# }
Run the code above in your browser using DataLab