### Get path to example source
examplePath <-
system.file("extdata", package="rock");
### Get a path to one example file
exampleFile <-
file.path(examplePath, "example-1.rock");
### Parse single example source
parsedExample <- rock::parse_source(exampleFile);
### Create a categorical attribute column
parsedExample$qdt$age_group <-
c(rep(c("<18", "18-30", "31-60", ">60"),
each=19),
rep(c("<18", ">60"),
time = c(3, 4)));
### Expand to four logical columns
parsedExample$qdt <-
rock::expand_attributes(
parsedExample$qdt,
"age_group",
valueLabels =
c(
"<18" = "youngest",
"18-30" = "youngish",
"31-60" = "oldish",
">60" = "oldest"
),
valueFirst = FALSE
);
### Show some of the result
table(parsedExample$qdt$age_group,
parsedExample$qdt$age_group__youngest);
table(parsedExample$qdt$age_group,
parsedExample$qdt$age_group__oldish);
Run the code above in your browser using DataLab