Simple chat with LLMR

The hardware and bandwidth for this mirror is donated by dogado GmbH, the Webhosting and Full Service-Cloud Provider. Check out our Wordpress Tutorial.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]dogado.de.

knitr::opts_chunk$set(
  collapse = TRUE, comment = "#>",
  eval = identical(tolower(Sys.getenv("LLMR_RUN_VIGNETTES", "false")), "true")
)

This vignette shows basic chat usage with four models across two open providers: - DeepSeek: deepseek-chat - DeepSeek: deepseek-reasoner - Groq: llama-3.1-8b-instant - Groq: openai/gpt-oss-20b

You will need API keys in these environment variables: DEEPSEEK_API_KEY, GROQ_API_KEY.

To run these examples locally, set a local flag: - Sys.setenv(LLMR_RUN_VIGNETTES = “true”) - or add LLMR_RUN_VIGNETTES=true to ~/.Renviron

DeepSeek: deepseek-chat

library(LLMR)

cfg_ds <- llm_config(
  provider = "deepseek",
  model    = "deepseek-chat"
)

chat_ds <- chat_session(cfg_ds, system = "Be concise.")
chat_ds$send("Say a warm hello in one short sentence.")
chat_ds$send("Now say it in Esperanto.")

DeepSeek: deepseek-reasoner

cfg_reason <- llm_config(
  provider = "deepseek",
  model    = "deepseek-reasoner"
)

chat_reason <- chat_session(cfg_reason, system = "Be concise.")
chat_reason$send("Name one interesting fact about honey bees.")

Groq: llama-3.1-8b-instant

cfg_groq1 <- llm_config(
  provider = "groq",
  model    = "llama-3.1-8b-instant"
)

chat_groq1 <- chat_session(cfg_groq1, system = "Be concise.")
chat_groq1$send("Give me a single-sentence fun fact about volcanoes.")

Groq: openai/gpt-oss-20b

cfg_groq2 <- llm_config(
  provider = "groq",
  model    = "openai/gpt-oss-20b"
)

chat_groq2 <- chat_session(cfg_groq2, system = "Be concise.")
chat_groq2$send("Share a short fun fact about octopuses.")

Using the chat history

Chat sessions remember context automatically:

chat_ds$send("What did I ask you to do in my first message?")
# The model can reference the earlier "Say a warm hello" request

Inspect the full conversation

# View all messages
as.data.frame(chat_ds)

# Get summary statistics
summary(chat_ds)

Structured chat in one call (DeepSeek example)

schema <- list(
  type = "object",
  properties = list(
    answer     = list(type = "string"),
    confidence = list(type = "number")
  ),
  required = list("answer", "confidence"),
  additionalProperties = FALSE
)

chat_ds$send_structured(
  "Return an answer and a confidence score (0-1) about: Why is the sky blue?",
  schema
)

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.