expect_hms_equal <- function(x, y) {
expect_s3_class(x, "hms")
expect_s3_class(y, "hms")
expect_equal(as.numeric(x), as.numeric(y))
}
expect_difftime_equal <- function(x, y) {
expect_s3_class(x, "difftime")
expect_s3_class(y, "difftime")
expect_equal(as.numeric(as_hms(x)), as.numeric(as_hms(y)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.