Nothing
test_that("parse_size works", {
expect_error(parse_size("foo"), "Must be a positive integer")
expect_error(parse_size(TRUE), "Must be a positive integer")
expect_error(parse_size(0), "Must be a positive integer")
expect_error(parse_size(-1), "Must be a positive integer")
expect_error(parse_size(-.1), "Must be a positive integer")
expect_error(parse_size(.1), "Must be a positive integer")
expect_error(parse_size("0"), "Must be a positive integer")
expect_error(parse_size("1"), "Must be a positive integer")
expect_error(parse_size(Inf), "Must be a positive integer")
expect_error(parse_size(NULL), "Must be a positive integer")
expect_error(parse_size(1:2), "Must be a positive integer")
expect_error(parse_size(numeric()), "Must be a positive integer")
expect_error(parse_size(integer()), "Must be a positive integer")
expect_identical(parse_size(1L), 1)
expect_identical(parse_size(1), 1)
expect_identical(parse_size(.Machine$integer.max), as.numeric(.Machine$integer.max))
expect_identical(parse_size(.Machine$integer.max + 1), .Machine$integer.max + 1)
})
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.