R/aaa-tools.R

In btw: A Toolkit for Connecting R and Large Language Models

.btw_tools <- list()

.btw_add_to_tools <- function(name, group = name, tool) {
  check_string(name)
  check_string(group)
  if (!is_function(tool)) {
    abort(
      "`tool` must be a function to ensure `ellmer::tool()` is called at run time."
    )
  }

  if (name %in% names(.btw_tools)) {
    cli::cli_abort("Tool names must be unique: {.val {name}}")
  }

  .btw_tools[[name]] <<- list(
    name = name,
    group = group,
    tool = tool
  )

  invisible(tool)
}