# \donttest{
if (interactive()) {
nvidia <- create_nvidia()
model <- nvidia$language_model("z-ai/glm4.7")
# Enable thinking/reasoning
result <- generate_text(model, "Who are you?",
chat_template_kwargs = list(enable_thinking = TRUE)
)
print(result$reasoning)
}
# }
Run the code above in your browser using DataLab