test_build_frame_dates <- function() {
d1 <- wrapr::build_frame(
"date", "measure", "value" |
as.Date("2019-03-01") , "AUC" , as.Date("2019-03-11") |
as.Date("2019-03-01") , "R2" , as.Date("2019-03-12") |
as.Date("2019-03-02") , "AUC" , as.Date("2019-03-13") |
as.Date("2019-03-02") , "R2" , as.Date("2019-03-14") )
d <- data.frame(date = c(as.Date("2019-03-01") , as.Date("2019-03-01"), as.Date("2019-03-02") , as.Date("2019-03-02") ),
measure = c("AUC", "R2", "AUC", "R2"),
value = c(as.Date("2019-03-11") , as.Date("2019-03-12"), as.Date("2019-03-13") , as.Date("2019-03-14") ),
stringsAsFactors = FALSE)
expect_true("Date" %in% class(d1$date))
expect_true("Date" %in% class(d1$value))
expect_true(wrapr::check_equiv_frames(d1, d))
invisible(NULL)
}
test_build_frame_dates()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.