Generate a Mermaid.js diagram using LLM with elmer package to explain code

llm-diagram

library(elmer)
library(tidyverse)
library(DiagrammeR)
library(glue)

code <- "starwars %>%
  group_by(species) %>%
  summarise(
    n = n(),
    mass = mean(mass, na.rm = TRUE)
  ) %>%
  filter(
    n > 1,
    mass > 50
  )"

chat <- chat_openai(
  model = "gpt-4o",
  system_prompt = "You are a friendly but terse assistant.",
  echo = TRUE,
  api_args = list(temperature = 0)
)

response <- chat$chat(glue("Generate mermaid.js code explaining this R code:
               {code}"))


mermaid_code <- str_extract(response, "(?s)(?<=```mermaid\\n).*?(?=```)")

DiagrammeR(mermaid_code)