library(hierarchy)
options(error = recover)
r_path = "test-data/spatial-groupings"
test_data_path = system.file(r_path, package="hierarchy")
fs = dir(path = test_data_path, pattern = ".*-in-.*\\.csv", full.names = TRUE)
sh = hierarchy:::hierarchy_factory(fs)
sh$get_size()
c_idx = sh$get_level_idxs("country")
r_idx = sh$get_level_idxs("region")
a_idx = sh$get_level_idxs("major area")
z_idx = sh$get_level_idxs("ZERO_LEVEL")
o = sh$get_hierarchy_idxs()
a_of_r_idx = sh$get_parent_idxs(r_idx)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.