From c7ef26e798556c6906034db65d369f11c74c2a3a Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Thu, 7 Apr 2022 09:26:01 +0200
Subject: Fail early if Guix command does not exist.

---
 R/guix.install.R | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'R')

diff --git a/R/guix.install.R b/R/guix.install.R
index 66bb340..49d607a 100644
--- a/R/guix.install.R
+++ b/R/guix.install.R
@@ -18,6 +18,14 @@
 
 guix.install <- function (package, profile = NULL, guix = "guix", archive = NULL)
 {
+    ## Abort if we can't execute Guix.
+    error <- suppressWarnings (system2 (guix, c("describe"), stderr=NULL, stdout=NULL))
+    if (error == 127) {
+        stop (paste("Failed to run Guix command ", guix, ".  Is it on PATH?"))
+    } else if (error != 0) {
+        stop (paste("Failed to run Guix command ", guix, ".  Error code: ", error))
+    }
+
     if (is.null (profile)) {
         ## Use the default profile unless otherwise specified.
         guix_profile <- Sys.getenv ("GUIX_PROFILE", unset = NA)
-- 
cgit v1.2.3