Better handle silent errors

closes:#1674 return from `system2()` can be a length!=1 character
rstudio · Sep 23, 2024 · 6974279 · 6974279
1 parent 8a38c9a
commit 6974279
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/R/config.R b/R/config.R
@@ -375,9 +375,11 @@ py_discover_config <- function(required_module = NULL, use_environment = NULL) {
     # https://github.com/rstudio/reticulate/issues/1325
     get_platform <- function(python) {
       tryCatch({
-        system2(python,
-                args = c("-c", shQuote("import sys; print(sys.platform)")),
-                stdout = TRUE, stderr = FALSE)
+        plat <- system2(python,
+          args = c("-c", shQuote("import sys; print(sys.platform)")),
+          stdout = TRUE, stderr = FALSE
+        )
+        if (rlang::is_string(plat)) plat else ""
       }, warning = function(w) "", error = function(e) "")
     }
     python_sys_platforms <- vapply(python_versions, get_platform, "")