tooluse

library(ellmer)
library(rvest)

get_ellmer_news <- function() {
  read_html("https://ellmer.tidyverse.org/news/index.html") |>
    html_element("div.section") |>
    html_text2() |>
    substr(1, 3000)  # Keep it manageable
}

# Turn it into a tool
news_tool <- tool(
  get_ellmer_news,
  description = "Get the latest feature updates from the ellmer package"
)

# Register and use it
chat <- chat_anthropic(system_prompt = "You are a terse but friendly assistant")
chat$register_tool(news_tool)

chat$chat("What are the 3 most interesting new features in ellmer?")