Nothing
test_that("check_tz", {
rlang::with_options(lifecycle_verbosity = "error", {
expect_error(check_tz(as.POSIXct("1970-01-01", tz = "GMT")))
})
rlang::local_options(lifecycle_verbosity = "quiet")
x <- check_tz(as.POSIXct("1970-01-01", tz = "GMT"))
expect_error(
check_tz(x, "UTC"),
"x's time zone must be 'UTC' not [(]'GMT'[)]"
)
})
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.