# \donttest{
if (interactive()) {
# Load a GGUF model
engine <- slm_engine("models/llama-3-8b-q4.gguf")
engine$load()
# Generate text
result <- engine$generate("What is the capital of France?")
cat(result$text)
# Stream generation
engine$stream("Tell me a story", callback = cat)
# Cleanup
engine$unload()
}
# }
Run the code above in your browser using DataLab