fix: handling of platform arg when yaml file used

luciorq · Nov 6, 2024 · 7094100 · 7094100
1 parent 7329b2d
commit 7094100
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: condathis
 Title: Run Any CLI Tool on a Conda Environment
-Version: 0.0.6.9005
+Version: 0.0.6.9006
 Authors@R: c(
     person("Lucio", "Queiroz", , "[email protected]",
            role = c("aut", "cre", "cph"),

diff --git a/R/create_env.R b/R/create_env.R
@@ -90,6 +90,7 @@ create_env <- function(
     channels
   )
   method_to_use <- method[1]
+  platform_args <- NULL
   if (isFALSE(is.null(packages))) {
     platform_args <- define_platform(
       packages = packages,
@@ -101,6 +102,10 @@ create_env <- function(
     platform_args <- NULL
   }
 
+  if (isFALSE(is.null(platform)) && isTRUE(is.null(platform_args))) {
+    platform_args <- c("--platform", platform)
+  }
+
   if (isTRUE(method_to_use %in% c("native", "auto"))) {
     if (env_exists(env_name = env_name) && isFALSE(overwrite)) {
       pkg_list_res <- list_packages(env_name = env_name, verbose = verbose)