The pingr package has tools to check if a remote computer or web server is up and some other related tools.
ping() function does ICMP ping, via the system’s
#>  0.046 0.058 0.053
By default it sends three packets and measures the time it receives and answer. It waits between sending out the packets, so if you want a really quick check, you can just send a single packet:
ping("127.0.0.1", count = 1)
#>  0.067
If a machine is down (or it does not exist), then
NA is returned
instead of the roundtrip time:
ping("192.0.2.1", count = 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)
#>  12.676
my_ip() queries the public IP of the computer, either via DNS or
#>  "22.214.171.124"
is_online() checks if the computer is online. It makes three tries:
If any of these are successful, it returns
#>  TRUE
The package also contains a function to perform DNS queries. This is a
more portable and more functional version of the
nsl("www.r-project.org", type = 1L)
#> $answer #> name class type ttl data #> 1 www.r-project.org 1 5 900 cran.wu-wien.ac.at #> 2 cran.wu-wien.ac.at 1 1 300 126.96.36.199 #> #> $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 110 2a00:1450:4009:81a::200e #> #> $flags #> aa tc rd ra ad cd #> FALSE FALSE TRUE TRUE FALSE FALSE
MIT © RStudio
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.