Respond to manual CRAN feedback

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
 Version: 0.1.0
-Date: 2024-12-19 22:38:38 UTC
-SHA: 48be76382552aec19d8461697c106c281f7863a8
+Date: 2024-12-20 14:50:44 UTC
+SHA: 9503a1f2988a0c718575c8df7bccee10a9435857

DESCRIPTION

@@ -7,9 +7,9 @@ Authors@R: c(
     person("Posit Software, PBC", role = c("cph", "fnd"))
   )
 Description: Chat with large language models from a range of providers
-  including 'Claude', 'OpenAI', 'Azure', 'Bedrock', and 'Google' 'Gemini'.
-  Supports streaming, asynchronous calls, tool calling, and structured data
-  extraction.
+  including 'Claude' <https://claude.ai>, 'OpenAI' <https://chatgpt.com>,
+  and more. Supports streaming, asynchronous calls, tool calling, and
+  structured data extraction.
 License: MIT + file LICENSE
 URL: https://ellmer.tidyverse.org, https://github.com/tidyverse/ellmer
 BugReports: https://github.com/tidyverse/ellmer/issues

NAMESPACE

@@ -33,6 +33,7 @@ export(contents_html)
 export(contents_markdown)
 export(contents_text)
 export(create_tool_def)
+export(has_credentials)
 export(interpolate)
 export(interpolate_file)
 export(live_browser)

R/chat.R

@@ -15,7 +15,7 @@ NULL
 #' but instead call [chat_openai()] or friends instead.
 #'
 #' @return A Chat object
-#' @examplesIf ellmer:::openai_key_exists()
+#' @examplesIf has_credentials("openai")
 #' chat <- chat_openai(echo = TRUE)
 #' chat$chat("Tell me a funny joke")
 Chat <- R6::R6Class("Chat",

R/content-image.R

@@ -15,7 +15,7 @@
 #'   the `chat()`, `stream()`, `chat_async()`, or `stream_async()` methods.
 #'
 #' @export
-#' @examplesIf ellmer:::openai_key_exists()
+#' @examplesIf has_credentials("openai")
 #' chat <- chat_openai(echo = TRUE)
 #' chat$chat(
 #'   "What do you see in these images?",

R/provider-claude.R

@@ -26,7 +26,7 @@ NULL
 #' @param max_tokens Maximum number of tokens to generate before stopping.
 #' @family chatbots
 #' @export
-#' @examplesIf ellmer:::anthropic_key_exists()
+#' @examplesIf has_credentials("claude")
 #' chat <- chat_claude()
 #' chat$chat("Tell me three jokes about statisticians")
 chat_claude <- function(system_prompt = NULL,

R/provider-cortex.R

@@ -44,7 +44,7 @@ NULL
 #' @inheritParams chat_openai
 #' @inherit chat_openai return
 #' @family chatbots
-#' @examplesIf ellmer:::cortex_credentials_exist()
+#' @examplesIf has_credentials("cortex")
 #' chat <- chat_cortex(
 #'   model_file = "@my_db.my_schema.my_stage/model.yaml"
 #' )

R/provider-openai.R

@@ -43,7 +43,7 @@ NULL
 #' @family chatbots
 #' @export
 #' @returns A [Chat] object.
-#' @examplesIf ellmer:::openai_key_exists()
+#' @examplesIf has_credentials("openai")
 #' chat <- chat_openai()
 #' chat$chat("
 #'   What is the difference between a tibble and a data frame?

R/tools-def.R

@@ -20,7 +20,7 @@ NULL
 #'   function.
 #' @export
 #' @return An S7 `ToolDef` object.
-#' @examplesIf ellmer:::openai_key_exists()
+#' @examplesIf has_credentials("openai")
 #'
 #' # First define the metadata that the model uses to figure out when to
 #' # call the tool

R/utils.R

@@ -81,3 +81,20 @@ dots_named <- function(...) {
   x[[length(x) + 1]] <- value
   x
 }
+
+#' Are credentials avaiable?
+#'
+#' Used for examples/testing.
+#'
+#' @keywords internal
+#' @param provider Provider name.
+#' @export
+has_credentials <- function(provider) {
+  switch(provider,
+    cortex = cortex_credentials_exist(),
+    openai = openai_key_exists(),
+    claude = anthropic_key_exists(),
+    cli::cli_abort("Unknown model {model}.")
+  )
+
+}

cran-comments.md

@@ -1,3 +1,7 @@
+This is a resubmission fixing specified issues
+
+---
+
 ## R CMD check results
 
 0 errors | 0 warnings | 1 note