Fixes out of bounds error (#1717)

* Now handles single result from system2

* comments out env installation prompt

Author: edgararuiz

R/config.R

@@ -492,14 +492,15 @@ try_create_default_virtualenv <- function(package = "reticulate", ...) {
     return(NULL)
 
   if (permission == "") {
-    if (is_interactive()) {
-      permission <- utils::askYesNo(sprintf(
-        "Would you like to create a default Python environment for the %s package?",
-        package))
-      if (!isTRUE(permission))
-        return(NULL)
-      permission <- "true"
-    }
+    return(NULL)
+    # if (is_interactive()) {
+    #   permission <- utils::askYesNo(sprintf(
+    #     "Would you like to create a default Python environment for the %s package?",
+    #     package))
+    #   if (!isTRUE(permission))
+    #     return(NULL)
+    #   permission <- "true"
+    # }
   }
 
   if (!permission %in% c("true", "yes", "1"))

R/py_require.R

@@ -488,8 +488,13 @@ uv_get_or_create_env <- function(packages = py_reqs_get("packages"),
     if (cmd_failed) {
       cmd_err <- paste0(result, collapse = "\n")
     } else {
-      cmd_err <- paste0(result[[1]], "\n")
-      cmd_out <- result[[2]]
+      if (length(result) == 1) {
+        cmd_out <- result[[1]]
+        cmd_err <- NULL
+      } else {
+        cmd_out <- result[[2]]
+        cmd_err <- paste0(result[[1]], "\n")
+      }
     }
   }