minor fixes

rstudio · Jan 27, 2025 · 9124438 · 9124438
1 parent c483d3e
commit 9124438
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/install.R b/R/install.R
@@ -309,7 +309,7 @@ has_gpu <- function() {
   has_nvidia_gpu <- function() {
     lspci_listed <- tryCatch(
       as.logical(length(
-        system("lspci | grep -i nvidia", intern = TRUE)
+        system("lspci | grep -i nvidia", intern = TRUE, ignore.stderr = TRUE)
       )),
       # warning emitted by system for non-0 exit status
       warning = function(w) FALSE,
@@ -321,7 +321,7 @@ has_gpu <- function() {
 
     # lspci doens't list GPUs on WSL Linux, but nvidia-smi does.
     nvidia_smi_listed <- tryCatch(
-      system("nvidia-smi -L", intern = TRUE),
+      system("nvidia-smi -L", intern = TRUE, ignore.stderr = TRUE),
       warning = function(w) character(),
       error = function(e) character()
     )

diff --git a/R/package.R b/R/package.R
@@ -215,7 +215,7 @@ print.tensorflow_config <- function(x, ...) {
   if (x$available) {
     aliased <- function(path) sub(Sys.getenv("HOME"), "~", path)
     cat("TensorFlow v", x$version_str, " (", aliased(x$location), ")\n", sep = "")
-    cat("Python v", x$python_version, " (", aliased(x$python), ")\n", sep = "")
+    cat("Python v", as.character(x$python_version), " (", aliased(x$python), ")\n", sep = "")
   } else {
     cat(x$error_message, "\n")
   }