release v0.1.0 (#86)

Author: simonpcouch

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: chores
 Title: A Collection of Large Language Model Assistants
-Version: 0.0.4
+Version: 0.1.0
 Authors@R: c(
     person("Simon", "Couch", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-5676-5107")),
@@ -9,9 +9,9 @@ Authors@R: c(
 Description: Provides a collection of ergonomic large language model assistants 
     designed to help you complete repetitive, hard-to-automate tasks quickly. 
     After selecting some code, press the keyboard shortcut you've chosen to 
-    trigger the package app, select an assistant, and watch your code be 
-    rewritten. While the package ships with a number of helpers for R package 
-    development, users can create custom helpers just by writing some
+    trigger the package app, select an assistant, and watch your chore be 
+    carried out. While the package ships with a number of chore helpers for R 
+    package development, users can create custom helpers just by writing some
     instructions in a markdown file.
 License: MIT + file LICENSE
 Config/testthat/edition: 3

NAMESPACE

@@ -1,7 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
 S3method(print,helper_response)
-export(.helper_add)
 export(.init_addin)
 export(.init_helper)
 export(directory_list)

NEWS.md

@@ -1,4 +1,4 @@
-# chores (development version)
+# chores 0.1.0
 
 * Initial CRAN submission.
 

R/directory.R

@@ -6,14 +6,13 @@
 #' `directory_*()` functions allow users to interface with the directory,
 #' making new "chores" available:
 #'
-#' * `directory_path()` returns the path to the prompt directory, which
-#' defaults to `~/.config/chores`.
+#' * `directory_path()` returns the path to the prompt directory.
 #' * `directory_set()` changes the path to the prompt directory (by setting
 #'   the option `.chores_dir`).
 #' * `directory_list()` enumerates all of the different prompts that currently
 #'   live in the directory (and provides clickable links to each).
 #' * `directory_load()` registers each of the prompts in the prompt
-#'   directory with the chores package (via [.helper_add()]).
+#'   directory with the chores package.
 #'
 #' [Functions prefixed with][prompt] `prompt*()` allow users to conveniently create, edit,
 #' and delete the prompts in chores' prompt directory.
@@ -51,15 +50,28 @@
 #' loading the package, just set the `.chores_dir` option with
 #' `options(.chores_dir = some_dir)`. To load a directory of files that's not
 #' the prompt directory, provide a `dir` argument to `directory_load()`.
+#'
+#' @returns
+#' * `directory_path()` returns the path to the prompt directory (which is
+#'   not created by default unless explicitly requested by the user).
+#' * `directory_set()` return the path to the new prompt directory.
+#' * `directory_list()` returns the file paths of all of the prompts that
+#'   currently live in the directory (and provides clickable links to each).
+#' * `directory_load()` returns `NULL` invisibly.
+#'
 #' @name directory
 #'
-#' @seealso The "Custom helpers" vignette, at `vignette("custom", package = "chores")`,
-#' for more on adding your own helper prompts, sharing them with others, and
-#' using prompts from others.
+#' @seealso The "Custom helpers" vignette, at
+#' `vignette("custom", package = "chores")`,for more on adding your own
+#' helper prompts, sharing them with others, and using prompts from others.
+#'
+#' @examples
+#' # choose a path for the prompt directory
+#' tmp_dir <- withr::local_tempdir()
+#' directory_set(tmp_dir)
 #'
-#' @examplesIf FALSE
 #' # print out the current prompt directory
-#' directory_get()
+#' directory_path()
 #'
 #' # list out prompts currently in the directory
 #' directory_list()
@@ -74,10 +86,6 @@
 #' # (this will also happen automatically on reload)
 #' directory_load()
 #'
-#' # these are equivalent:
-#' directory_set("some/folder")
-#' options(.chores_dir = "some/folder")
-#'
 #' @export
 directory_load <- function(dir = directory_path()) {
   prompt_base_names <- directory_base_names(dir)
@@ -94,6 +102,8 @@ directory_load <- function(dir = directory_path()) {
 
     .helper_add(chore = chore, prompt = prompt, interface = interface)
   }
+
+  invisible()
 }
 
 #' @rdname directory
@@ -131,7 +141,17 @@ directory_list <- function() {
 #' @rdname directory
 #' @export
 directory_path <- function() {
-  getOption(".chores_dir", default = file.path("~", ".config", "chores"))
+  .chores_dir <- getOption(".chores_dir", default = NULL)
+
+  if (is.null(.chores_dir)) {
+    cli::cli_warn(c(
+      "No {.pkg chores} prompt directory configured.",
+      'Set one in your {.file .Rprofile} using e.g.
+       {.code directory_set(file.path("~", ".config", "chores"))}.'
+    ))
+  }
+
+  .chores_dir
 }
 
 #' @rdname directory

R/doc-helper-roxygen.R

@@ -31,8 +31,7 @@
 #'
 #' @section Gallery:
 #'
-#' This section includes a handful of examples
-#' "[from the wild](https://github.com/hadley/elmer/tree/e497d627e7be01206df6f1420ca36235141dc22a/R)"
+#' This section includes a handful of examples "from the wild"
 #' and are generated with the recommended model, Claude Sonnet 3.5.
 #'
 #' Documenting a function factory:

R/helper-add-remove.R

@@ -1,30 +1,29 @@
-#' Registering helpers
-#'
-#' @description
-#' Users can create custom helpers using the `.helper_add()` function; after passing
-#' the function a chore and prompt, the helper will be available in the
-#' [chores addin][.init_addin].
-#'
-#' **Most users should not need to interact with these functions.**
-#' [prompt_new()] and friends can be used to create prompts for new helpers, and
-#' those helpers can be registered with chores using [directory_load()] and friends.
-#' The helpers created by those functions will be persistent across sessions.
-#'
-#' @param chore A single string giving a descriptor of the helper's functionality.
-#' Cand only contain letters and numbers.
-#' @param prompt A single string giving the system prompt. In most cases, this
-#' is a rather long string, containing several newlines.
-#' @param interface One of `"replace"`, `"prefix"`, or `"suffix"`, describing
-#' how the helper will interact with the selection. For example, the
-#' [cli helper][cli_helper] `"replace"`s the selection, while the
-#' [roxygen helper][roxygen_helper] `"prefixes"` the selected code with documentation.
-#'
-#' @returns
-#' `NULL`, invisibly. Called for its side effect: a helper for chore `chore`
-#' is registered (or unregistered) with the chores package.
-#'
-#' @name helper_add_remove
-#' @export
+# Registering helpers
+#
+# @description
+# Users can create custom helpers using the `.helper_add()` function; after passing
+# the function a chore and prompt, the helper will be available in the
+# [chores addin][.init_addin].
+#
+# **Most users should not need to interact with these functions.**
+# [prompt_new()] and friends can be used to create prompts for new helpers, and
+# those helpers can be registered with chores using [directory_load()] and friends.
+# The helpers created by those functions will be persistent across sessions.
+#
+# @param chore A single string giving a descriptor of the helper's functionality.
+# Cand only contain letters and numbers.
+# @param prompt A single string giving the system prompt. In most cases, this
+# is a rather long string, containing several newlines.
+# @param interface One of `"replace"`, `"prefix"`, or `"suffix"`, describing
+# how the helper will interact with the selection. For example, the
+# [cli helper][cli_helper] `"replace"`s the selection, while the
+# [roxygen helper][roxygen_helper] `"prefixes"` the selected code with documentation.
+#
+# @returns
+# `NULL`, invisibly. Called for its side effect: a helper for chore `chore`
+# is registered (or unregistered) with the chores package.
+#
+# @name helper_add_remove
 .helper_add <- function(
     chore,
     prompt = NULL,
@@ -39,7 +38,7 @@
   invisible()
 }
 
-#' @rdname helper_add_remove
+# @rdname helper_add_remove
 .helper_remove <- function(chore) {
   check_string(chore)
   if (!chore %in% list_helpers()) {

R/init-addin.R

@@ -13,6 +13,10 @@
 #' `NULL`, invisibly. Called for the side effect of launching the chores addin
 #' and interfacing with selected text.
 #'
+#' @examples
+#' if (interactive()) {
+#'   .init_addin()
+#' }
 #' @export
 .init_addin <- function() {
   if (is.null(fetch_chores_chat())) {

R/init-helper.R

@@ -9,15 +9,20 @@
 #'
 #' @param chore The identifier for a helper prompt. By default one
 #' of `r glue::glue_collapse(paste0("[", glue::double_quote(default_chores), "]", "[", default_chores, "_helper", "]"), ", ", last = " or ")`,
-#' though custom helpers can be added with [.helper_add()].
+#' though custom helpers can be added with [prompt_new()].
 #' @param .chores_chat An ellmer Chat, e.g.
 #' `function() ellmer::chat_claude()`. Defaults to the option by the same name,
 #' so e.g. set `options(.chores_chat = ellmer::chat_claude())` in your
 #' `.Rprofile` to configure chores with ellmer every time you start a new R session.
 #'
-#' @examplesIf FALSE
+#' @returns
+#' A Helper object, which is a subclass of an ellmer chat.
+#'
+#' @examples
+#' # requires an API key and sets options
+#' \dontrun{
 #' # to create a chat with claude:
-#' .init_helper()
+#' .init_helper(.chores_chat = ellmer::chat_claude())
 #'
 #' # or with OpenAI's 4o-mini:
 #' .init_helper(.chores_chat = ellmer::chat_openai(model = "gpt-4o-mini"))
@@ -28,6 +33,7 @@
 #' options(
 #'   .chores_chat = ellmer::chat_openai(model = "gpt-4o-mini")
 #' )
+#' }
 #' @export
 .init_helper <- function(
     chore = NULL,
@@ -37,7 +43,7 @@
   if (!chore %in% list_helpers()) {
     cli::cli_abort(c(
       "No helpers for chore {.arg {chore}} registered.",
-      "i" = "See {.fn .helper_add}."
+      "i" = "See {.fn prompt_new}."
     ))
   }
 

R/prompt.R

@@ -18,7 +18,12 @@
 #' Load the prompts you create with these functions using [directory_load()]
 #' (which is automatically called when the package loads).
 #'
-#' @inheritParams helper_add_remove
+#' @param chore A single string giving a descriptor of the helper's functionality.
+#' Cand only contain letters and numbers.
+#' @param interface One of `"replace"`, `"prefix"`, or `"suffix"`, describing
+#' how the helper will interact with the selection. For example, the
+#' [cli helper][cli_helper] `"replace"`s the selection, while the
+#' [roxygen helper][roxygen_helper] `"prefixes"` the selected code with documentation.
 #' @param contents Optional. Path to a markdown file with contents that will
 #' "pre-fill" the file. Anything file ending in `.md` or `.markdown` that can be
 #' read with `readLines()` is fair game; this could be a local file, a "raw"
@@ -32,7 +37,8 @@
 #' Each `prompt_*()` function returns the file path to the created, edited, or
 #' removed filepath, invisibly.
 #'
-#' @examplesIf FALSE
+#' @examples
+#' if (interactive()) {
 #' # create a new helper for chore `"boop"` that replaces the selected text:
 #' prompt_new("boop")
 #'
@@ -66,7 +72,7 @@
 #'       "58c9b4da/summarize-prefix.md"
 #'     )
 #' )
-#'
+#' }
 #' @name prompt
 
 #' @rdname prompt

R/zzz.R

@@ -6,8 +6,8 @@
 
   directory_load(system.file("prompts", package = "chores"))
 
-  chores_dir <- getOption(".chores_dir", default = file.path("~", ".config", "chores"))
-  if (dir.exists(chores_dir)) {
+  chores_dir <- getOption(".chores_dir", default = NULL)
+  if (!is.null(chores_dir) && dir.exists(chores_dir)) {
     directory_load(chores_dir)
   }
 }