### 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);
### Show inductive code tree for the codes
### extracted with the regular expression specified with
### the name 'codes':
parsedExample$inductiveCodeTrees$codes;
### If you want `rock` to be chatty, use:
parsedExample <- rock::parse_source(exampleFile,
silent=FALSE);
### Parse as selection of example sources in that directory
parsedExamples <-
rock::parse_sources(
examplePath,
regex = "(test|example)(.txt|.rock)"
);
### Show combined inductive code tree for the codes
### extracted with the regular expression specified with
### the name 'codes':
parsedExamples$inductiveCodeTrees$codes;
### Show a souce coded with the Qualitative Network Approach
qnaExample <-
rock::parse_source(
file.path(
examplePath,
"network-example-1.rock"
)
);
Run the code above in your browser using DataLab