### Get path to example source
examplePath <-
system.file("extdata", package="rock");
### Read a souce coded with the Qualitative Network Approach
qnaExample <-
rock::parse_source(
file.path(
examplePath,
"network-example-1.rock"
)
);
### Convert and show the topic map
cat(
rock::qna_to_tlm(
qnaExample
),
sep="\n"
);
Run the code above in your browser using DataLab