Fix ping() on NetBSD

r-lib · Oct 25, 2024 · e324599 · e324599
1 parent 386f369
commit e324599
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/R/ping-package.R b/R/ping-package.R
@@ -131,6 +131,15 @@ ping_os <- function(destination, continuous, count, timeout) {
       destination
     )
 
+  } else if (Sys.info()[["sysname"]] == "NetBSD") {
+    cmd <- c(
+      "ping",
+      # on NetBSD -w is a total timeout, so adjust it
+      "-w", if (continuous) int(timeout) else count * int(timeout),
+      if (!continuous) c("-c", count),
+      destination
+    )
+
   } else if (.Platform$OS.type == "unix") {
     cmd <- c(
       "ping",