Test

Author: Keats

.Rprofile

@@ -0,0 +1,2 @@
+source("rv/scripts/rvr.R")
+source("rv/scripts/activate.R")

.github/workflows/release.yaml

@@ -0,0 +1,37 @@
+name: R Release
+
+on:
+  pull_request:
+
+jobs:
+  release:
+    runs-on: ubuntu-latest
+    permissions:
+      contents: write
+      pull-requests: write
+
+    steps:
+      - name: Checkout repository
+        uses: actions/checkout@v4
+        with:
+          fetch-depth: 0
+
+      - name: Setup R
+        uses: r-lib/actions/setup-r@v2
+
+      - name: Install the latest version of rv
+        uses: a2-ai/setup-rv@main
+
+      - name: sync
+        run: rv sync
+
+      - name: get library path
+        run: |
+          OUTPUT=$(rv library)
+          echo "result=$OUTPUT" >> $GITHUB_OUTPUT
+
+      - name: Run R Releaser
+        uses: A2-ai/r-releaser/build-src@main
+        with:
+          library: ${{ steps.cli-output.outputs.result }}
+          resave-data: false

rproject.toml

@@ -0,0 +1,20 @@
+[project]
+name = "rv.git.pkgA"
+r_version = "4.4"
+
+# any CRAN-type repository, order matters. Additional ability to force source package installation
+# Example: {alias = "CRAN", url = "https://cran.r-project.org", force_source = true}
+repositories = [
+    {alias = "CRAN", url = "https://cran.r-project.org", force_source = true}
+]
+
+# package to install and any specifications. Any descriptive dependency can have the `install_suggestions` specification
+# Examples:
+    # "dplyr",
+    # {name = "dplyr", repository = "CRAN", force_source = true},
+    # {name = "dplyr", git = "https://github.com/tidyverse/dplyr.git", tag = "v1.1.4"},
+    # {name = "dplyr", path = "/path/to/local/dplyr"},
+dependencies = [
+    "R6"
+]
+

rv/.gitignore

@@ -0,0 +1,2 @@
+library
+__rv__staging

rv/scripts/activate.R

@@ -0,0 +1,33 @@
+local({
+	rv_info <- system2("rv", c("info", "--library", "--r-version", "--repositories"), stdout = TRUE)
+	if (!is.null(attr(rv_info, "status"))) {
+		# if system2 fails it'll add a status attribute with the error code
+		warning("failed to run rv info, check your console for messages")
+	} else {
+		# extract library, r-version, and repositories from rv
+		rv_lib <- sub("library: (.+)", "\\1", grep("^library:", rv_info, value = TRUE))
+		rv_r_ver <- sub("r-version: (.+)", "\\1", grep("^r-version:", rv_info, value = TRUE))
+		repo_str <- sub("repositories: ", "", grep("^repositories:", rv_info, value = TRUE))
+		repo_entries <- gsub("[()]", "", strsplit(repo_str, "), (", fixed = TRUE)[[1]])
+    repo_list <- trimws(sub(".*, ", "", repo_entries))  # Extract URL
+    names(repo_list) <- trimws(sub(", .*", "", repo_entries))   # Extract Name
+		# this might not yet exist, so we'll normalize it but not force it to exist
+		# and we create it below as needed
+		rv_lib <- normalizePath(rv_lib, mustWork = FALSE)
+		if (!dir.exists(rv_lib)) {
+			message("creating rv library: ", rv_lib)
+			dir.create(rv_lib, recursive = TRUE)
+		}
+		.libPaths(rv_lib, include.site = FALSE)
+		options(repos = repo_list)
+
+		if (interactive()) {
+			message("rv libpaths active!\nlibrary paths: \n", paste0("  ", .libPaths(), collapse = "\n"), "\n")
+			message("rv repositories active!\nrepositories: \n", paste0("  ", names(getOption("repos")), ": ", getOption("repos"), collapse = "\n"))
+			sys_r <- sprintf("%s.%s", R.version$major, R.version$minor)
+			if (!grepl(paste0("^", rv_r_ver), sys_r)) {
+				message(sprintf("\nWARNING: R version specified in config (%s) does not match session version (%s)", rv_r_ver, sys_r))
+		}
+	}
+	}
+})

rv/scripts/rvr.R

@@ -0,0 +1,26 @@
+.rv <- new.env()
+.rv$config_path <- file.path(normalizePath(getwd()), "rproject.toml")
+.rv$summary <- function(json = FALSE) {
+  command <- c("summary")
+  if (json) { command <- c(command, "--json") }
+  .rv$command(command)
+}
+.rv$plan <- function() { .rv$command("plan") }
+.rv$sync <- function() { .rv$command("sync") }
+.rv$add <- function(..., dry_run = FALSE) {
+  dots <- unlist(list(...))
+  command <- c("add", dots)
+  if (dry_run) { command <- c(command, "--dry-run") }
+  .rv$command(command)
+}
+
+.rv$command <- function(command) {
+  # underlying system calls to rv
+  args <- c(command, "-c", .rv$config_path)
+  res <- system2("rv", args, stdout = TRUE)
+  if (!is.null(attr(res, "status"))) {
+    warning(sprintf("failed to run `rv %s`, check your console for messages", paste(args, collapse = " ")))
+  } else {
+    message(paste(res, collapse = "\n"))
+  }
+}