These functions return a logical vector indicating on which lines the specific content occurs.
Usage
lines_with_codes(x)
lines_with_breaks(x)
lines_with_anchors(x)
lines_with_uids(x)
lines_with_comments(x)
lines_with_nesting(x)
lines_with_whitespaceOnly(x)
remove_rock_from_text(x)
lines_with_data(x)Examples
### Get path to example source
examplePath <-
system.file("extdata", package="rock");
### Get a path to one example file
exampleFile <-
file.path(examplePath, "example-5.rock");
### Parse single example source
loadedExample <-
rock::load_source(exampleFile);
linesWithCodes <-
lines_with_codes(loadedExample);
loadedExample[linesWithCodes];
#> [1] "[[uid=7zs2xyfy]] Lorem ipsum dolor sit amet, consectetur [[caseId:1]]"
#> [2] "[[uid=7zs2xyg1]] potenti. Quisque posuere iaculis justo [[exampleCodeId_3]]"
#> [3] "[[uid=7zs2xyg4]] purus enim. Fusce nibh nulla, consequat [[exampleCodeId_3]]"
#> [4] "[[uid=7zs2xyg8]] platea dictumst. Nullam nisi enim, [[exampleCodeId_2]]"
#> [5] "[[uid=7zs2xygb]] turpis. In porta viverra lectus ac [[exampleCodeId_2]]"
#> [6] "[[uid=7zs2xygf]] Aenean facilisis rhoncus ornare. [[exampleCodeId_3]]"
#> [7] "[[uid=7zs2xygl]] ligula egestas, eget malesuada turpis [[exampleCodeId_2]]"
#> [8] "[[uid=7zs2xygq]] Nullam eget enim mi. Nunc eget felis [[caseId:2]]"
#> [9] "[[uid=7zs2xygt]] tincidunt. Phasellus convallis diam sit [[exampleCodeId_3]]"
#> [10] "[[uid=7zs2xygy]] penatibus et magnis dis parturient [[exampleCodeId_2]]"
#> [11] "[[uid=7zs2xyh4]] elit dictum porta ut nec justo. Aliquam [[exampleCodeId_4]]"
#> [12] "[[uid=7zs2xyh7]] convallis. [[exampleCodeId_4]]"
#> [13] "[[uid=7zs2xyh9]] Duis dignissim imperdiet congue. Mauris [[caseId:2]]"
#> [14] "[[uid=7zs2xyhd]] Suspendisse tellus sem, consectetur a [[exampleCodeId_2]]"
#> [15] "[[uid=7zs2xyhk]] laoreet massa ac, eleifend sem. [[exampleCodeId_4]]"
#> [16] "[[uid=7zs2xyhq]] Proin et massa in nulla mollis egestas [[exampleCodeId_3]]"
#> [17] "[[uid=7zs2xyht]] auctor quam, et congue diam enim eu [[exampleCodeId_1]]"
#> [18] "[[uid=7zs2xyj1]] Nulla condimentum odio erat, congue [[caseId:1]]"
#> [19] "[[uid=7zs2xyj3]] facilisis auctor erat at viverra. Duis [[exampleCodeId_1]] [[exampleCodeId_4]]"
#> [20] "[[uid=7zs2xyjb]] mollis turpis. Fusce ut leo eu nulla [[exampleCodeId_2]]"
#> [21] "[[uid=7zs2xyjf]] nibh magna scelerisque nibh, eget [[exampleCodeId_4]] [[exampleCodeId_1]]"
#> [22] "[[uid=7zs2xyjj]] tincidunt, convallis elit ut, ultrices [[exampleCodeId_4]]"
#> [23] "[[uid=7zs2xyjm]] Vivamus egestas, arcu eu varius [[caseId:4]]"
#> [24] "[[uid=7zs2xyjr]] risus id sapien laoreet tempor quis sit [[exampleCodeId_1]]"
#> [25] "[[uid=7zs2xyjw]] et elit nec, dignissim malesuada neque. [[exampleCodeId_2]] [[exampleCodeId_3]]"
linesWithBreaks <-
lines_with_breaks(loadedExample);
loadedExample[linesWithBreaks];
#> [1] "---<< segmentation_break_type1 >>---"
#> [2] "---<< segmentation_break_type1 >>---"