# Examples similar those from hierarchies_as_vars
z <- SSBtoolsData("sprt_emp_withEU")
year_formula <- c("y_14 = 2014", "y_15_16 = y_all - y_14", "y_all = 2014 + 2015 + 2016")
geo_dim_list <- FindDimLists(z[, c("geo", "eu")], total = "Europe")[[1]]
age_hierarchy <- SSBtoolsData("sprt_emp_ageHier")
map_hierarchies_to_data(z, list(age = age_hierarchy, geo = geo_dim_list,
year = year_formula))
map_hierarchies_to_data(data.frame(f = c("A", "B", "C", "D", "E", "A")), list(f =
c("AB = A + B", "AC = A + C", "CD = C + D", "ABCD = AB + CD")))
# Examples demonstrating when_overwritten and add_comment
a <- map_hierarchies_to_data(z, list(age = age_hierarchy, geo = geo_dim_list))
comment(a)
b <- map_hierarchies_to_data(a[-7], list(age = age_hierarchy, geo = geo_dim_list),
when_overwritten = message, add_comment = FALSE)
comment(b)
Run the code above in your browser using DataLab