inst/quick-check/check-01.R

In sakrejda/hierarchy: Package for handling inputs to hierarchical models.

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)