test_that("Roundtrip to CSV works", {
df <- tibble(a = 1:3, b = letters[4:6])
path_csv <- withr::local_tempfile(fileext = ".csv")
write.csv(df, path_csv, row.names = FALSE)
out <- df_from_csv(path_csv)
expect_equal(out, df)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.