diff --git a/DESCRIPTION b/DESCRIPTION index a25526f..68d894f 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: saber Type: Package Title: Context Engineering for R -Version: 0.7.0 +Version: 0.7.1 Authors@R: c( person("Troy", "Hernandez", role = c("aut", "cre"), email = "troy@cornball.ai", diff --git a/R/agent_context.R b/R/agent_context.R index d6ee039..24cc9c9 100644 --- a/R/agent_context.R +++ b/R/agent_context.R @@ -48,7 +48,7 @@ #' @return Character string of assembled context, or empty string if no #' context applies. #' @examples -#' \dontrun{ +#' \donttest{ #' # Codex agent in current project #' saber::agent_context(agent = "codex") #' diff --git a/R/briefing.R b/R/briefing.R index 8b63838..1ca82a7 100644 --- a/R/briefing.R +++ b/R/briefing.R @@ -14,8 +14,8 @@ #' directory basename. #' @param scan_dir Directory to scan for project directories. #' @param briefs_dir Directory to write briefing markdown files. -#' @return The briefing text (character string), returned invisibly. Printed -#' to stdout and written to \code{briefs_dir/{project}.md}. +#' @return The briefing text (character string), returned invisibly. Emitted +#' via \code{message()} and written to \code{briefs_dir/{project}.md}. #' @examples #' d <- file.path(tempdir(), "briefpkg") #' dir.create(file.path(d, "R"), recursive = TRUE, showWarnings = FALSE) @@ -57,7 +57,7 @@ briefing <- function(project = NULL, scan_dir = path.expand("~"), outfile <- file.path(briefs_dir, paste0(project, ".md")) writeLines(lines, outfile) - cat(text, "\n", sep = "") + message(text) invisible(text) } diff --git a/inst/tinytest/test_briefing.R b/inst/tinytest/test_briefing.R index 48cdc61..05ca818 100644 --- a/inst/tinytest/test_briefing.R +++ b/inst/tinytest/test_briefing.R @@ -25,13 +25,14 @@ system2("git", c("-C", pkg_dir, "add", "-A"), stdout = FALSE, stderr = FALSE) system2("git", c("-C", pkg_dir, "commit", "-q", "-m", "init"), stdout = FALSE, stderr = FALSE) -# --- briefing() returns invisible character, prints to stdout --- -printed <- capture.output( - result <- briefing("demopkg", scan_dir = scan_dir, briefs_dir = briefs_dir) +# --- briefing() returns invisible character, emits via message() --- +msgs <- capture.output( + result <- briefing("demopkg", scan_dir = scan_dir, briefs_dir = briefs_dir), + type = "message" ) expect_true(is.character(result)) expect_true(grepl("Briefing: demopkg", result)) -expect_true(any(grepl("Briefing: demopkg", printed))) +expect_true(any(grepl("Briefing: demopkg", msgs))) # --- briefing includes DESCRIPTION metadata --- expect_true(grepl("Demo Package", result)) diff --git a/man/agent_context.Rd b/man/agent_context.Rd index 7f980f6..270fda2 100644 --- a/man/agent_context.Rd +++ b/man/agent_context.Rd @@ -72,7 +72,7 @@ conventions and picking the file relevant to the consumer: Override the defaults with the \code{include_*} parameters. } \examples{ -\dontrun{ +\donttest{ # Codex agent in current project saber::agent_context(agent = "codex") diff --git a/man/briefing.Rd b/man/briefing.Rd index b9d8b85..aa58b7c 100644 --- a/man/briefing.Rd +++ b/man/briefing.Rd @@ -15,8 +15,8 @@ directory basename.} \item{briefs_dir}{Directory to write briefing markdown files.} } \value{ -The briefing text (character string), returned invisibly. Printed - to stdout and written to \code{briefs_dir/{project}.md}. +The briefing text (character string), returned invisibly. Emitted + via \code{message()} and written to \code{briefs_dir/{project}.md}. } \description{ Generate project context for AI coding agents.