ping function for R (linux)

ping.r

ping <- function(x,stderr=FALSE,stdout=FALSE,...){
    ping <- system(paste("ping -c1", x, "> /dev/null"), 
                      intern=F, 
                      ignore.stdout=stdout, 
                      ignore.stderr=stderr)
    return(if (ping == 0) TRUE else FALSE)
}