Nothing
x <- ip_interface(c(
"29.71.126.113/6",
NA,
"::/0",
"9401:b71a:4193:9b47:4d74:f55b:fdd9:b2ba/101",
"2642:2f46:2d65:b800::/55"
))
test_that("without truncation", {
expect_snapshot({
pillar::pillar_shaft(x)
pillar::pillar_shaft(as_ip_network(x))
pillar::pillar_shaft(as_ip_address(x))
})
})
test_that("with truncation", {
expect_snapshot({
print(pillar::pillar_shaft(x), width = 20)
print(pillar::pillar_shaft(as_ip_network(x)), width = 20)
print(pillar::pillar_shaft(as_ip_address(x)), width = 20)
})
})
test_that("too much truncation", {
expect_error(print(pillar::pillar_shaft(x), width = 5))
})
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.