tests/testthat/test-ip.R

test_that("IP info check works", {

  skip_on_cran()
  skip_on_travis()
  skip_on_appveyor()

  x <- get_ip_info()

  expect_equal(class(x), "list")
  expect_equal(class(x$data$ip), "character")
})

Try the ipbase package in your browser

Any scripts or data that you put into this service are public.

ipbase documentation built on May 31, 2023, 9:21 p.m.