R/having_network.R

In mvbloois/faiR: Collection Of Farminform Functions

#' Check for network connection
#'
#' Check for local network in ipconfig/ifconfig.
#'
#' @param validnetwork character variable
#' @return boolean
#'
#' @examples
#' having_network(validnetwork = "brabers.loc")
#'
#' @export
having_network <- function(validnetwork = "brabers.loc") {

  if (.Platform$OS.type == "windows") {
    ipmessage <- system("ipconfig", intern = TRUE)
  } else {
    ipmessage <- system("ifconfig", intern = TRUE)
  }
  any(grep(validnetwork, ipmessage))
}