Add contributor infos

DESCRIPTION

@@ -12,6 +12,7 @@ Depends:
 Imports: 
     httr,
     jsonlite,
+    sys,
     utils
 Suggests: 
     knitr,

NAMESPACE

@@ -3,6 +3,7 @@
 export(available_r)
 export(find_rev)
 export(get_current)
+export(nix_build)
 export(rix)
 importFrom(httr,GET)
 importFrom(httr,content)

R/find_rev.R

@@ -388,3 +388,27 @@ USE_RSTUDIO};
 
 }
 
+
+#' Invoke shell command `nix-build` from an R session
+#' @param nix_file File path to the `default.nix` file. The default is
+#' a `default.nix` file in the current working directory of the current R
+#' session.
+#' @param exec_mode Either `"blocking"` (default) or `"non-blocking`. This
+#' will either block the R session while the `nix-build` shell command is
+#' executed, or run `nix-build` in the background ("non-blocking").
+#' @return integer of the process ID (PID) of `nix-build` shell command
+#' launched.
+#' @export
+nix_build <- function(nix_file = file.path("default.nix"),
+                      exec_mode = c("blocking", "non-blocking")) {
+  stopifnot(is.character(nix_file))
+  exec_mode <- match.arg(exec_mode)
+
+  proc <- switch(exec_mode,
+    "blocking" = sys::exec_wait("nix-build", nix_file),
+    "non-blocking" = sys::exec_background("nix-build", nix_file),
+    stop('invalid `exec_mode`. Either use "blocking" or "non-blocking"')
+  )
+
+  return(invisible(proc))
+}

dev/0-dev_history.Rmd

@@ -20,7 +20,8 @@ fusen::fill_description(
     Description = "Provides helper functions to create reproducible development environments using the Nix package manager.",
     Version = "0.0.9",
     `Authors@R` = c(
-      person("Bruno", "Rodrigues", email = "[email protected]", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-3211-3689"))
+      person("Bruno", "Rodrigues", email = "[email protected]", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-3211-3689")),
+      person("Philipp", "Baumann", email = "[email protected]", role = "ctb", comment = c(ORCID = "0000-0002-3194-8975"))
     )
   )
 )

dev/build_envs.Rmd

@@ -470,3 +470,32 @@ USE_RSTUDIO};
 }
 
 ```
+
+The function below is to invoke the shell command `nix-build` from a R 
+session.
+
+```{r function-nix_build}
+#' Invoke shell command `nix-build` from an R session
+#' @param nix_file File path to the `default.nix` file. The default is
+#' a `default.nix` file in the current working directory of the current R
+#' session.
+#' @param exec_mode Either `"blocking"` (default) or `"non-blocking`. This
+#' will either block the R session while the `nix-build` shell command is
+#' executed, or run `nix-build` in the background ("non-blocking").
+#' @return integer of the process ID (PID) of `nix-build` shell command
+#' launched.
+#' @export
+nix_build <- function(nix_file = file.path("default.nix"),
+                      exec_mode = c("blocking", "non-blocking")) {
+  stopifnot(is.character(nix_file))
+  exec_mode <- match.arg(exec_mode)
+
+  proc <- switch(exec_mode,
+    "blocking" = sys::exec_wait("nix-build", nix_file),
+    "non-blocking" = sys::exec_background("nix-build", nix_file),
+    stop('invalid `exec_mode`. Either use "blocking" or "non-blocking"')
+  )
+
+  return(invisible(proc))
+}
+```