boB Rudis
4年前
4個のファイルの変更、30行の追加、2行の削除
@ -0,0 +1,11 @@ |
|||
#' 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) |
|||
|
|||
} |
@ -0,0 +1,14 @@ |
|||
% Generated by roxygen2: do not edit by hand |
|||
% Please edit documentation in R/reachable.R |
|||
\name{reachable} |
|||
\alias{reachable} |
|||
\title{Is the internet accessible?} |
|||
\usage{ |
|||
reachable(fqdn_or_ip = "8.8.8.8") |
|||
} |
|||
\arguments{ |
|||
\item{fqdn_or_ip}{FQDN or ip to use for reachability testing. defaults to google dns} |
|||
} |
|||
\description{ |
|||
Is the internet accessible? |
|||
} |
読み込み中…
新しい課題から参照