You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
290 B
11 lines
290 B
#' Is the internet accessible?
|
|
#'
|
|
#' @param fqdn_or_ip FQDN or ip to use for reachability testing. defaults to google dns
|
|
#' @export
|
|
reachable <- function(fqdn_or_ip = "8.8.8.8") {
|
|
|
|
res <- sys::exec_internal("/usr/sbin/scutil", args = c("-r", fqdn_or_ip[1]))
|
|
|
|
return(res$status == 0)
|
|
|
|
}
|