Removes ROCK elements from text
Usage
remove_rock_codes_from_text(x)
remove_rock_breaks_from_text(x)
remove_rock_uids_from_text(x)
remove_rock_anchors_from_text(x)
remove_rock_comments_from_text(x)
remove_rock_nesting_from_text(x)
remove_rock_notes_from_text(x)
remove_yaml_from_text(x)
remove_rock_from_text(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);
### Extract notes
rock::remove_rock_codes_from_text(loadedExample);
#> [1] "---"
#> [2] "ROCK_attributes:"
#> [3] ""
#> [4] "- caseId: 4"
#> [5] "gender: nonbinary"
#> [6] "age: 50s"
#> [7] ""
#> [8] "- caseId: 5"
#> [9] "gender: female"
#> [10] "age: 30s"
#> [11] ""
#> [12] "- caseId: 6"
#> [13] "gender: male"
#> [14] "age: 40s"
#> [15] ""
#> [16] "---"
#> [17] ""
#> [18] ""
#> [19] "[[uid=7zs2xyfw]]"
#> [20] "[[uid=7zs2xyfx]]"
#> [21] "[[uid=7zs2xyfy]] Lorem ipsum dolor sit amet, consectetur"
#> [22] "[[uid=7zs2xyfz]] adipiscing elit. Phasellus convallis"
#> [23] "[[uid=7zs2xyg0]] felis nec commodo tempor. Suspendisse"
#> [24] "[[uid=7zs2xyg1]] potenti. Quisque posuere iaculis justo"
#> [25] "[[uid=7zs2xyg2]] pharetra egestas. Proin vulputate"
#> [26] "[[uid=7zs2xyg3]] scelerisque aliquet. Suspendisse quis"
#> [27] "[[uid=7zs2xyg4]] purus enim. Fusce nibh nulla, consequat"
#> [28] "[[uid=7zs2xyg5]] non nulla quis, auctor dignissim dolor."
#> [29] "[[uid=7zs2xyg6]] Etiam lectus nibh, semper eget pulvinar"
#> [30] "[[uid=7zs2xyg7]] sed, lobortis at enim. In hac habitasse"
#> [31] "[[uid=7zs2xyg8]] platea dictumst. Nullam nisi enim,"
#> [32] "[[uid=7zs2xyg9]] congue ac est at, iaculis imperdiet"
#> [33] "[[uid=7zs2xygb]] turpis. In porta viverra lectus ac"
#> [34] "[[uid=7zs2xygc]] fermentum. In pulvinar elit eget massa"
#> [35] "[[uid=7zs2xygd]] dignissim, quis efficitur orci rhoncus."
#> [36] "[[uid=7zs2xygf]] Aenean facilisis rhoncus ornare."
#> [37] "[[uid=7zs2xygg]] Curabitur in mauris elementum, viverra"
#> [38] "[[uid=7zs2xygh]] nibh eget, sollicitudin mauris. Ut"
#> [39] "[[uid=7zs2xygj]] tristique purus erat, id posuere mauris"
#> [40] "[[uid=7zs2xygk]] varius quis. Aliquam venenatis erat et"
#> [41] "[[uid=7zs2xygl]] ligula egestas, eget malesuada turpis"
#> [42] "[[uid=7zs2xygm]] venenatis. Morbi accumsan tellus sed"
#> [43] "[[uid=7zs2xygn]] neque ultrices consectetur."
#> [44] "[[uid=7zs2xygp]]"
#> [45] "[[uid=7zs2xygq]] Nullam eget enim mi. Nunc eget felis"
#> [46] "[[uid=7zs2xygr]] non magna consequat dapibus at nec"
#> [47] "[[uid=7zs2xygs]] orci. Praesent vulputate convallis"
#> [48] "[[uid=7zs2xygt]] tincidunt. Phasellus convallis diam sit"
#> [49] "[[uid=7zs2xygw]] amet nisi vulputate, sed hendrerit"
#> [50] "[[uid=7zs2xygx]] dolor malesuada. Orci varius natoque"
#> [51] "[[uid=7zs2xygy]] penatibus et magnis dis parturient"
#> [52] "[[uid=7zs2xygz]] montes, nascetur ridiculus mus. Aenean"
#> [53] "[[uid=7zs2xyh0]] viverra leo sed diam malesuada aliquam."
#> [54] "[[uid=7zs2xyh1]] Etiam non facilisis lacus, ut bibendum"
#> [55] "[[uid=7zs2xyh2]] tortor. Vivamus ac nisl consectetur"
#> [56] "[[uid=7zs2xyh3]] enim dapibus convallis. In a turpis id"
#> [57] "[[uid=7zs2xyh4]] elit dictum porta ut nec justo. Aliquam"
#> [58] "[[uid=7zs2xyh5]] pharetra nulla at est porta fermentum."
#> [59] "[[uid=7zs2xyh6]] Integer vel felis in nibh finibus"
#> [60] "[[uid=7zs2xyh7]] convallis."
#> [61] "[[uid=7zs2xyh8]]"
#> [62] ""
#> [63] "---<< segmentation_break_type1 >>---"
#> [64] ""
#> [65] "[[uid=7zs2xyh9]] Duis dignissim imperdiet congue. Mauris"
#> [66] "[[uid=7zs2xyhb]] tellus est, malesuada vitae laoreet"
#> [67] "[[uid=7zs2xyhc]] nec, auctor facilisis purus."
#> [68] "[[uid=7zs2xyhd]] Suspendisse tellus sem, consectetur a"
#> [69] "[[uid=7zs2xyhf]] sapien vel, dictum convallis purus."
#> [70] "[[uid=7zs2xyhg]] Vivamus non lorem nulla. Duis at urna"
#> [71] "[[uid=7zs2xyhh]] faucibus, dapibus neque in, consequat"
#> [72] "[[uid=7zs2xyhj]] turpis. Pellentesque vel urna accumsan,"
#> [73] "[[uid=7zs2xyhk]] laoreet massa ac, eleifend sem."
#> [74] "[[uid=7zs2xyhl]] Praesent ultricies tempor odio, eu"
#> [75] "[[uid=7zs2xyhm]] iaculis purus tempor sit amet. Nam id"
#> [76] ""
#> [77] "--{ This is a note. It will be extracted, removed from the data,"
#> [78] "and linked to the preceding data fragment. }--"
#> [79] ""
#> [80] "[[uid=7zs2xyhn]] est vitae nisi fringilla aliquam in non"
#> [81] "[[uid=7zs2xyhp]] odio. Nulla euismod a elit ac mattis."
#> [82] "[[uid=7zs2xyhq]] Proin et massa in nulla mollis egestas"
#> [83] "[[uid=7zs2xyhr]] vel ac purus. Quisque ultricies, ante"
#> [84] "[[uid=7zs2xyhs]] vitae ultrices suscipit, eros nibh"
#> [85] "[[uid=7zs2xyht]] auctor quam, et congue diam enim eu"
#> [86] "[[uid=7zs2xyhw]] ante. Nullam consectetur non ex nec"
#> [87] "[[uid=7zs2xyhx]] rutrum. Curabitur metus quam, facilisis"
#> [88] "[[uid=7zs2xyhy]] sed massa id, scelerisque convallis"
#> [89] "[[uid=7zs2xyhz]] diam. Etiam porta efficitur dictum."
#> [90] "[[uid=7zs2xyj0]]"
#> [91] "[[uid=7zs2xyj1]] Nulla condimentum odio erat, congue"
#> [92] "[[uid=7zs2xyj2]] efficitur quam finibus id. Nam"
#> [93] "[[uid=7zs2xyj3]] facilisis auctor erat at viverra. Duis"
#> [94] "[[uid=7zs2xyj4]] rutrum dolor quam, eu sagittis ante"
#> [95] "[[uid=7zs2xyj5]] vestibulum ac. Ut fermentum"
#> [96] "[[uid=7zs2xyj6]] sollicitudin egestas. Maecenas"
#> [97] ""
#> [98] "--{ keyExample }={ This is a note key-value pair. }--"
#> [99] "--{ The note on the preceding line will also be attached }--"
#> [100] "--{ to the preceding data fragment, just like this one. }--"
#> [101] "--{ anotherExample }={ This is a second example. }--"
#> [102] ""
#> [103] "--{ This is a second note attached to the same data"
#> [104] "fragment. So to attach multiple notes, just leave"
#> [105] "an empty line between them. }--"
#> [106] "--{ with_a_third }={ keyed value }--"
#> [107] ""
#> [108] "### Notes are different from comments; comments, like this one,"
#> [109] "### are ignored; they're not parsed by programs that can parse"
#> [110] "### ROCK files."
#> [111] ""
#> [112] "[[uid=7zs2xyj7]] ultricies, ex in semper sollicitudin,"
#> [113] "[[uid=7zs2xyj8]] dui nunc sollicitudin dolor, sit amet"
#> [114] "[[uid=7zs2xyj9]] tempor turpis neque ac arcu. Cras in"
#> [115] ""
#> [116] "--{"
#> [117] ""
#> [118] "Some people may prefer to embed their notes like this."
#> [119] ""
#> [120] "}--"
#> [121] ""
#> [122] "[[uid=7zs2xyjb]] mollis turpis. Fusce ut leo eu nulla"
#> [123] "[[uid=7zs2xyjc]] mollis interdum vitae sed orci. Nulla"
#> [124] "[[uid=7zs2xyjd]] feugiat, risus non volutpat pulvinar,"
#> [125] "[[uid=7zs2xyjf]] nibh magna scelerisque nibh, eget"
#> [126] "[[uid=7zs2xyjg]] eleifend turpis orci ac lectus. Sed sed"
#> [127] "[[uid=7zs2xyjh]] tellus massa. Nullam porttitor nibh"
#> [128] "[[uid=7zs2xyjj]] tincidunt, convallis elit ut, ultrices"
#> [129] "[[uid=7zs2xyjk]] enim. Quisque ac condimentum nunc."
#> [130] ""
#> [131] "---<< segmentation_break_type1 >>---"
#> [132] ""
#> [133] "[[uid=7zs2xyjl]]"
#> [134] "[[uid=7zs2xyjm]] Vivamus egestas, arcu eu varius"
#> [135] "[[uid=7zs2xyjn]] blandit, turpis orci pharetra eros, ac"
#> [136] "[[uid=7zs2xyjp]] mattis erat eros sit amet quam. Nulla"
#> [137] "[[uid=7zs2xyjq]] sit amet luctus mauris. Suspendisse sed"
#> [138] ""
#> [139] "--{ This is another example of a longer }--"
#> [140] "--{ note block that all starts and ends }--"
#> [141] "--{ with the note delimiter }--"
#> [142] "--{ and because these lines are }--"
#> [143] "--{ consecutive, they are considered one note. }--"
#> [144] ""
#> [145] "[[uid=7zs2xyjr]] risus id sapien laoreet tempor quis sit"
#> [146] "[[uid=7zs2xyjs]] amet urna. Sed egestas nunc in porta"
#> [147] "[[uid=7zs2xyjt]] pulvinar. Morbi ligula lorem, facilisis"
#> [148] "[[uid=7zs2xyjw]] et elit nec, dignissim malesuada neque."
#> [149] "[[uid=7zs2xyjx]] Aenean consectetur quam sed purus"
#> [150] "[[uid=7zs2xyjy]] accumsan, eu consectetur ante"
#> [151] "[[uid=7zs2xyjz]] consectetur. Integer porttitor cursus"
#> [152] "[[uid=7zs2xyk0]] dui. Maecenas sit amet mauris velit."
#> [153] "[[uid=7zs2xyk1]] Nulla iaculis tincidunt libero."
#> [154] ""
#> [155] "--{ Finally, a single-line note. }--"
#> attr(,"class")
#> [1] "rock_source" "character"