# f <- system.file("extdata", "unidata", "test_hgroups.nc", package = "tidync")
# file.copy(f, file.path("inst/extdata/unidata", basename(f)))
#
# f <- system.file("extdata/unidata/test_hgroups.nc", package = "vapour")
# vapour_sds_names(f)
#
#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.