Merge pull request #30 from Enchufa2/fix/27

close #27: add an optional automated passwordless detection mechanism

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: bspm
 Type: Package
 Title: Bridge to System Package Manager
-Version: 0.3.7.1
+Version: 0.3.8
 Authors@R: c(
     person("Iñaki", "Ucar", email="[email protected]",
       role=c("aut", "cph", "cre"), comment=c(ORCID="0000-0001-6403-5550")))

NEWS.md

@@ -1,7 +1,10 @@
-# bspm 0.3.7.1
+# bspm 0.3.8
 
 - Fix spurious error with `options(bspm.always.install.deps=TRUE)` (#25).
 - Ensure that `options(bspm.sudo=TRUE)` forces `sudo` unconditionally (#28).
+- Add new `options(bspm.sudo.autodetect=TRUE)` (not set by default) to enable
+  passwordless `sudo` autodetection on package load, which then sets
+  `options(bspm.sudo=TRUE)` accordingly (#27).
 
 # bspm 0.3.7
 

R/init.R

@@ -0,0 +1,14 @@
+.onLoad <- function(libname, pkgname) {
+  if (getOption("bspm.sudo.autodetect", FALSE))
+    sudo_autodetect()
+}
+
+sudo_autodetect <- function() {
+  nopass <- !system2nowarn("sudo", c("-n", "true"), stdout=FALSE, stderr=FALSE)
+  toolbox <- file.exists("/run/.toolboxenv") # see #27
+
+  if (nopass || toolbox) {
+    packageStartupMessage("bspm: passwordless sudo detected and enabled")
+    options(bspm.sudo=TRUE)
+  }
+}

R/manager.R

@@ -16,6 +16,11 @@
 #' that, if you want to fall back to \code{sudo} in a non-interactive session,
 #' you need to set \code{options(bspm.sudo=TRUE)}.
 #'
+#' If \code{options(bspm.sudo.autodetect=TRUE)} on start-up, \pkg{bspm} tries
+#' to detect whether it is running in an environment where password-less
+#' \code{sudo} can be used (e.g., in a containerized environment such as a
+#' Fedora Toolbox), and then sets \code{options(bspm.sudo=TRUE)} accordingly.
+#'
 #' By default, if a package is not available in the system repositories, it is
 #' installed from R's configured repositories along with all its dependencies.
 #' This behavior can be changed via \code{options(bspm.always.install.deps=TRUE)},

inst/tinytest/test_manager_ci.R

@@ -1,6 +1,20 @@
 if (!at_home() || !bspm:::root())
   exit_file("not in a CI environment")
 
+sudo.avail <- unname(nchar(Sys.which("sudo")) > 0)
+in.toolbox <- file.exists("/run/.toolboxenv")
+expect_false(getOption("bspm.sudo", FALSE))
+bspm:::sudo_autodetect()
+if (sudo.avail || in.toolbox) {
+  expect_true(getOption("bspm.sudo", FALSE))
+} else {
+  expect_false(getOption("bspm.sudo", FALSE))
+  file.create("/run/.toolboxenv")
+  bspm:::sudo_autodetect()
+  expect_true(getOption("bspm.sudo", FALSE))
+}
+options(bspm.sudo = NULL)
+
 if (requireNamespace("Rcpp", quietly=TRUE))
   exit_file("not in a clean environment")