Repository files navigation

The pingr package has tools to check if a remote computer or web serveris up and some other related tools.

Install the package from CRAN:

install.packages("pingr")

If you need the development version, install it from GitHub:

pak::pak("r-lib/pingr")

Theping() function does ICMP ping, via the system’sping utility:

library(pingr)

#> #> Attaching package: 'pingr'#> The following object is masked from 'package:utils':#> #>     nsl

ping("127.0.0.1")

#> [1] 0.084 0.097 0.068

By default it sends three packets and measures the time it receives andanswer. It waits between sending out the packets, so if you want areally quick check, you can just send a single packet:

ping("127.0.0.1",count=1)

#> [1] 0.069

If a machine is down (or it does not exist), thenNA is returnedinstead of the roundtrip time:

ping("192.0.2.1",count=1)

#> [1] NA

With TCP ping we can check if a machine is listeing on a TCP port,e.g. if google’s search web server is up and running:

ping_port("www.google.com",port=80,count=1)

#> [1] 17.737

my_ip() queries the public IP of the computer, either via DNS orHTTPS:

my_ip()

#> [1] "83.50.74.244"

is_online() checks if the computer is online. It makes three tries:

• Queries myip.opendns.com on OpenDNS, seemy_ip().
• Retrieves icanhazip.com via HTTPS, seemy_ip().
• Retrieve Apple’s Captive Portal test page, seeapple_captive_test().

If any of these are successful, it returnsTRUE.

is_online()

#> [1] TRUE

The package also contains a function to perform DNS queries. This is amore portable and more functional version of theutils::nsl()function:

nsl("www.r-project.org",type=1L)

#> $answer#>                 name class type  ttl               data#> 1  www.r-project.org     1    5 7054 cran.wu-wien.ac.at#> 2 cran.wu-wien.ac.at     1    1  231      137.208.57.37#> #> $flags#>    aa    tc    rd    ra    ad    cd #> FALSE FALSE  TRUE  TRUE FALSE FALSE

nsl("google.com",type=28L)

#> $answer#>         name class type ttl                     data#> 1 google.com     1   28 236 2a00:1450:4003:80d::200e#> #> $flags#>    aa    tc    rd    ra    ad    cd #> FALSE FALSE  TRUE  TRUE FALSE FALSE

MIT © RStudio