Release prep

Author: edgararuiz

.Rbuildignore

@@ -13,3 +13,4 @@ data.rds
 ^docs$
 ^pkgdown$
 ^CRAN-SUBMISSION$
+^utils$

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: connections
 Title: Integrates with the 'RStudio' Connections Pane and 'pins'
-Version: 0.2.0.9000
+Version: 0.2.1
 Authors@R:
   c(
     person("Edgar", "Ruiz", email = "edgar@posit.co", role = c("aut", "cre")),

NEWS.md

@@ -0,0 +1,3 @@
+# connections 0.2.1
+
+- Addresses notes from CRAN

cran-comments.md

@@ -1,36 +1,16 @@
 ## New submission
 
-- Resubmitting after addressing the recommended changes from CRAN
-
-- This submission attempts to restore the 'connections' package to CRAN. The
-code, tests, and repository have been updated. The original maintainer has been
-restored, with an updated email address. The previous maintainer is no longer
-accessible through the email on file for the latest version that was in CRAN.
+- Addresses CRAN notes 
 
 ## Test environments
 
-* Mac OS M1 (aarch64-apple-darwin20), R 4.3.2 (Local)
-* Mac OS x86_64-apple-darwin20.0 (64-bit), R 4.3.2 (GH Actions)
-* Windows x86_64-w64-mingw32 (64-bit), R 4.3.2 (GH Actions)
-* Linux x86_64-pc-linux-gnu (64-bit), R 4.3.2 (GH Actions)
-* Linux x86_64-pc-linux-gnu (64-bit), R dev (GH Actions)
-* Linux x86_64-pc-linux-gnu (64-bit), R old release (GH Actions)
-* Local Mac OS M1 (aarch64-apple-darwin20), R 4.3.1 (Local)
+- Mac OS M1 (aarch64-apple-darwin20), R 4.5.0 (Local)
+- Windows Server 2022 x64 (build 20348) (x86_64, mingw32) R version 4.5.1 (2025-06-13 ucrt)
+- Ubuntu 24.04.3 LTS (x86_64, linux-gnu) R Under development (unstable) (2025-09-09 r88803)
+- Ubuntu 24.04.3 LTS (x86_64, linux-gnu) R version 4.4.3 (2025-02-28)
+- Ubuntu 24.04.3 LTS (x86_64, linux-gnu) R version 4.5.1 (2025-06-13)
+- macOS Sequoia 15.5 (aarch64, darwin20) R version 4.5.1 (2025-06-13)
 
 ## R CMD check results
 
-0 errors ✔ | 0 warnings ✔ | 1 note ✖
-
-
-```
-NOTE
-  Maintainer: ‘Edgar Ruiz <edgar@posit.co>’
-  
-  New submission
-  
-  Package was archived on CRAN
-  
-  CRAN repository db overrides:
-    X-CRAN-Comment: Archived on 2021-10-19 as check problems were not
-      corrected in time.
-```
+0 errors ✔ | 0 warnings ✔ | 0 notes ✔

utils/cran-jobs.R

@@ -0,0 +1,46 @@
+library(gh)
+library(purrr)
+library(glue)
+library(fs)
+
+repo <- "rstudio/connections"
+workflow <- "R-CMD-check"
+
+action_runs <- gh(glue("GET /repos/{repo}/actions/runs"))
+
+latest_r_check <- action_runs$workflow_runs |>
+  keep(\(x) x$name == workflow) |>
+  head(1)
+
+temp_file <- tempfile(fileext = ".zip")
+
+gh(
+  endpoint = glue("GET /repos/{repo}/actions/runs/{latest_r_check[[1]]$id}/logs"),
+  .destfile = temp_file
+)
+
+temp_dir <- tempdir()
+unzip(temp_file, exdir = temp_dir)
+
+files <- temp_dir |>
+  dir_ls(glob = "*.txt") |>
+  keep(\(x) !grepl("git-", x))
+
+get_line <- function(path) {
+  job_log <- readLines(path)
+  version_line <- job_log[substr(job_log, 30, 39) == " version  "]
+  version_line <- substr(version_line, 40, nchar(version_line))
+  system_line <- job_log[substr(job_log, 30, 39) == " system   "]
+  system_line <- substr(system_line, 40, nchar(system_line))
+  os_line <- job_log[substr(job_log, 30, 39) == " os       "]
+  os_line <- substr(os_line, 40, nchar(os_line))
+  glue("- {os_line} ({system_line}) {version_line}")
+}
+
+files |>
+  map_chr(get_line) |>
+  paste0("\n") |>
+  walk(cat)
+
+
+dir_delete(temp_dir)

utils/toc.R

@@ -0,0 +1,46 @@
+library(rstudioapi)
+
+toc <- function() {
+  ac <- getActiveDocumentContext()
+  content <- ac$contents
+
+  is_title <- substr(content, 1, 1) == "#" & substr(content, 2, 2) != "|"
+
+  title <- content[is_title]
+
+  toc_start <- "<!-- toc: start -->"
+  toc_end <- "<!-- toc: end -->"
+
+  toc <- NULL
+  for(i in seq_along(title)) {
+    current_title <- title[i]
+    if(substr(current_title, 1, 4) == "### ") {
+      new_title <- substr(current_title, 5, nchar(current_title))
+      spacing <- "    - "
+    }
+    if(substr(current_title, 1, 3) == "## ") {
+      new_title <- substr(current_title, 4, nchar(current_title))
+      spacing <- "- "
+    }
+    if(grepl("\\{", new_title)) {
+      split_title <- unlist(strsplit(new_title, " "))
+      new_title <- paste0(split_title[1:(length(split_title) - 1)], collapse = " ")
+    }
+    new_link <- tolower(new_title)
+    new_link <- gsub(" ", "-", new_link)
+    ret <- paste0(spacing, "[", new_title, "](#", new_link, ")")
+    toc <- c(toc, ret)
+  }
+
+  toc <- paste0(toc_start, "\n",
+                paste0(toc, collapse = "\n"),
+                "\n\n", toc_end)
+
+  pos_start <- as.document_position(c(which(content == toc_start), 1))
+  pos_end <- as.document_position(c(which(content == toc_end), nchar(toc_end) + 1))
+
+  pos_range <- document_range(pos_start, pos_end)
+
+  modifyRange(pos_range, toc)
+
+}