h5getEnumNames <- function(tid) {
enum_names <- .Call("_h5getEnumNames", tid, PACKAGE = "rhdf5")
return(enum_names)
}
h5getEnumValues <- function(tid) {
enum_vals <- .Call("_h5getEnumValues", tid, PACKAGE = "rhdf5")
return(enum_vals)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.