Changed the delay behavour in wsl_installed

Author: martinmodrak

R/utils.R

@@ -543,7 +543,12 @@ wsl_installed <- function() {
   tryCatch({
     # Call can hang indefinitely on Github actions, so explicitly kill
     p <- processx::process$new("wsl", "uname")
-    Sys.sleep(1)
+    for(i in 1:50) {
+      Sys.sleep(0.1)
+      if(!p$is_alive()) {
+        break
+      }
+    }
     if (p$is_alive()) {
       p$kill()
       FALSE