Nothing
library(readr)
library(testthat)
library(campfin)
test_that("MDY dates can be parsed in readr::read_csv()", {
raw <- "x\n11/09/2016"
df <- read_csv(raw, col_types = cols(x = col_date_mdy()))
expect_s3_class(df$x, "Date")
})
test_that("USA dates can be parsed in readr::read_csv()", {
raw <- "x\n11/09/2016"
expect_warning(read_csv(raw, col_types = cols(x = col_date_usa())))
})
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.