Add using_conda() for detecting Conda environments (closes #7)

- Also fix typo in `using_nix_shell()` tests

NAMESPACE

@@ -9,6 +9,7 @@ export(using_arm_cpu)
 export(using_ci)
 export(using_circle_ci)
 export(using_codebuild)
+export(using_conda)
 export(using_config)
 export(using_container)
 export(using_covr)

R/conda.R

@@ -0,0 +1,17 @@
+#' @rdname conda
+#' @title Determine whether Conda environment is being used
+#'
+#' @param env Optional environment name to compare against
+#'
+#' @return A logical value
+#' @export
+#'
+#' @examples
+#' # Check if Conda is being used (regardless of environment name)
+#' using_conda()
+#'
+#' # Check if the 'dev' Conda environment is being used
+#' using_conda(env = "dev")
+using_conda <- function(env = NULL) {
+  using_envvar("CONDA_DEFAULT_ENV", value = env)
+}

_pkgdown.yml

@@ -42,6 +42,7 @@ reference:
     - using_rstudio_dark_theme
     - using_vscode
     - using_interactive_session
+    - using_conda
 
   - title: Continuous Integration
     desc: Determine whether code is being run in a continuous integration environment

inst/WORDLIST

@@ -3,6 +3,7 @@ CMD
 CircleCI
 CodeBuild
 Codecov
+Conda
 Databricks
 GitLab
 Lifecycle

tests/testthat/test-conda.R

@@ -0,0 +1,18 @@
+test_that("using_conda validates input properly", {
+  expect_error(using_conda(env = NA_character_))
+  expect_error(using_conda(env = 1))
+  expect_error(using_conda(env = c("dev", "prod")))
+})
+
+test_that("using_conda works as expected when `CONDA_DEFAULT_ENV` not set", {
+  withr::local_envvar(list("CONDA_DEFAULT_ENV" = NA))
+  expect_false(using_conda())
+  expect_false(using_conda(env = "dev"))
+})
+
+test_that("using_conda works as expected in 'dev' environment", {
+  withr::local_envvar(list("CONDA_DEFAULT_ENV" = "dev"))
+  expect_true(using_conda())
+  expect_true(using_conda(env = "dev"))
+  expect_false(using_conda(env = "prod"))
+})

tests/testthat/test-nix.R

@@ -1,7 +1,7 @@
 test_that("using_nix_shell validates input properly", {
   expect_error(using_nix_shell(pure = NA_character_))
   expect_error(using_nix_shell(pure = 1))
-  expect_error(using_nux_shell(pure = "pure"))
+  expect_error(using_nix_shell(pure = "pure"))
   expect_error(using_nix_shell(pure = c(TRUE, TRUE)))
 })