02-tools.R

library(dotenv) # Will read OPENAI_API_KEY from .env file
library(ellmer)
library(beepr)

#' Plays a sound effect.
#'
#' @param sound Which sound effect to play.
#' @returns NULL
play_sound <- function(sound = c("correct", "incorrect", "you-win")) {
  sound <- match.arg(sound)
  if (sound == "correct") {
    beepr::beep("coin")
  } else if (sound == "incorrect") {
    beepr::beep("wilhelm")
  } else if (sound == "you-win") {
    beepr::beep("fanfare")
  }
  list(success = TRUE, value = NULL)
}

chat <- chat_openai(
  model = "gpt-4o",
  system_prompt = paste(collapse = "\n", readLines("02-tools-prompt.md", warn = FALSE))
)

# Give the chatbot the ability to play a sound.
#
# Created using `ellmer::create_tool_metadata(play_sound)`
chat$register_tool(tool(
  play_sound,
  "Plays a sound effect.",
  sound = type_string(
    "Which sound effect to play. Options are 'correct', 'incorrect', 'you-win'. Defaults to 'correct'.",
    required = FALSE
  )
))

chat$chat("Begin", echo = TRUE) # Jump-start the conversation
live_console(chat, quiet = TRUE) # Continue the conversation