# Import sample data
sl4_data1 <- load_sl4x(system.file("extdata", "TAR10.sl4", package = "HARplus"))
sl4_data2 <- load_sl4x(system.file("extdata", "SUBT10.sl4", package = "HARplus"))
# Case 1: Multiple priority levels (Sector then Region) with auto_rename
priority_list <- list(
"Sector" = c("COMM", "ACTS"),
"Region" = c("REG")
)
grouped_data_multiple <- group_data_by_dims(
patterns = "ALL",
sl4_data1,
priority = priority_list,
auto_rename = TRUE
)
# Case 2: Single priority (Region only) with auto_rename
priority_list <- list("Region" = c("REG"))
grouped_data_single <- group_data_by_dims(
patterns = "ALL",
sl4_data1, sl4_data2,
priority = priority_list,
auto_rename = TRUE
)
# Case 3: Multiple priorities without auto_rename
priority_list <- list(
"Sector" = c("COMM", "ACTS"),
"Region" = c("REG")
)
grouped_data_no_rename <- group_data_by_dims(
patterns = "ALL",
sl4_data1,
priority = priority_list,
auto_rename = FALSE
)
Run the code above in your browser using DataLab