Nothing
# TODO(mario): Check why enum test case ist not working (test-zzz.enum.R)
# context("h5-DataSet-Enum")
#
# test_that("DataSet-Enum-Matrix-open", {
# # Use the sample file for the enum datatype from the HDF Group itself,
# # see also https://www.hdfgroup.org/ftp/HDF5/examples/files/exbyapi
# fname <- system.file("h5ex_t_enum.h5", package = "hdf5r", mustWork = TRUE)
# datafile <- h5file(fname, "r")
# dataset <- datafile[["DS1"]][]
# expect_that(is.factor(dataset), is_true())
# expect_that(levels(dataset), equals(c("SOLID", "LIQUID", "GAS", "PLASMA")))
# h5close(datafile)
# })
#
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.