feat: add support for conda environments

Author: rpreen

R/acro_init.R

@@ -1,12 +1,77 @@
+# Globals -----------------------------------------------------------------
+acro_venv <- "r-acro"
+acro_pkg <- "acro==0.4.11"
+ch <- "conda-forge"
+
+
+#' Resolve Python executable
+#'
+#' @return String path to a Python executable.
+get_python <- function() {
+  python <- Sys.which("python3")
+  if (python == "") { # nocov
+    python <- Sys.which("python")
+    if (python == "") {
+      stop("Python not found in PATH. Please ensure Python is installed.")
+    }
+  }
+  return(python)
+}
+
+
+#' Install ACRO in a conda environment
+#'
+#' @param envname Name of the conda environment
+install_conda <- function(envname) { # nocov
+  if (!reticulate::condaenv_exists(envname = envname, conda = "auto")) {
+    reticulate::conda_create(envname = envname, python_version = "3.12", channel = ch)
+    reticulate::conda_install(envname = envname, packages = acro_pkg, channel = ch)
+  }
+}
+
+
+#' Initialise ACRO in a Python virtual environment
+#'
+#' @param envname Name of the virtual environment
+install_venv <- function(envname = acro_venv) {
+  if (!reticulate::virtualenv_exists(envname)) {
+    python <- get_python()
+
+    reticulate::virtualenv_create(
+      envname = envname,
+      python = python,
+      force = TRUE,
+      packages = NULL
+    )
+
+    reticulate::py_install(acro_pkg, envname = envname)
+  }
+}
+
+
 #' Initialise an ACRO object
 #'
 #' @param suppress Whether to automatically apply suppression.
+#' @param envname Name of the Python environment to use.
+#' @param use_conda Whether to use a Conda environment (`TRUE`) or venv (`FALSE`).
 #'
-#' @return No return value, called for side effects
+#' @return Invisibly returns the ACRO object, which is used internally.
 #' @export
+acro_init <- function(suppress = FALSE, envname = acro_venv, use_conda = FALSE) {
+  # initialise the environment
+  if (!reticulate::py_available(initialize = FALSE)) {
+    if (use_conda) { # nocov
+      install_conda(envname)
+      reticulate::use_condaenv(envname, required = TRUE)
+    } else {
+      install_venv(envname)
+      reticulate::use_virtualenv(envname, required = TRUE)
+    }
+  }
 
-acro_init <- function(suppress = FALSE) {
-  create_virtualenv()
+  # import the acro package and instantiate an object
   acro <- reticulate::import("acro", delay_load = TRUE)
   acroEnv$ac <- acro$ACRO(suppress = suppress)
+
+  invisible(acroEnv$ac)
 }

R/create_virtualenv.R

@@ -4,7 +4,7 @@ test_that("install_acro installs 'acro' in the specified environment", {
   test_envname <- "test-acro-env"
 
   # Run the install_acro function
-  install_acro(envname = test_envname)
+  install_venv(envname = test_envname)
 
   # Check if 'acro' is installed in the test environment
   is_installed <- reticulate::py_module_available("acro")