context("test-nc_char")
f <- system.file("extdata/argo/MR5905167_372.nc",
package = "tidync", mustWork = TRUE)
test_that("nc_char is handled gracefully", {
tnc <- tidync(f)
expect_s3_class(tnc$variable, "tbl_df")
expect_true(all(dim(tnc$variable) == c(77L, 7L)))
expect_output(print(tnc))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.