From 903d65623be2b60c4a7012b7f8cc159c7b9fb9e3 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <andrew.johnson@arjohnsonau.com>
Date: Tue, 30 Aug 2022 14:39:31 +0300
Subject: [PATCH] Use timeout to prevent processx hang

---
 R/utils.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/utils.R b/R/utils.R
index 07fb32565..8f3baf2b7 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -535,7 +535,8 @@ wsl_installed <- function() {
     FALSE
   } else {
     wsl_callable <- processx::run(command = "wsl", args = "uname",
-                                    error_on_status = FALSE)
+                                    error_on_status = FALSE,
+                                    timeout = 5)
     wsl_callable$status == 0
   }
 }