This function adds HTML tags to a source to allow pretty printing/viewing.
add_html_tags(
x,
context = NULL,
codeClass = rock::opts$get(codeClass),
codeValueClass = rock::opts$get(codeValueClass),
idClass = rock::opts$get(idClass),
sectionClass = rock::opts$get(sectionClass),
uidClass = rock::opts$get(uidClass),
contextClass = rock::opts$get(contextClass),
utteranceClass = rock::opts$get(utteranceClass)
)
A character vector with the source
Optionally, lines to pass the contextClass
The classes to use for, respectively, codes, code values,
class instance identifiers (such as case
identifiers or coder identifiers), section breaks, utterance
identifiers, context, and full utterances. All <span>
elements except
for the full utterances, which are placed in <div>
elements.
The character vector with the replacements made.
### Add tags to a mini example source
add_html_tags("[[cid=participant1]]
This is something this participant may have said.
Just like this. [[thisIsACode]]
---paragraph-break---
And another utterance.");
#> [1] "<div class=\"utterance\"><span class=\"identifier caseId\">[[cid=participant1]]</span>\nThis is something this participant may have said.\nJust like this. <span class=\"code codes\">[[thisIsACode]]</span>\n---paragraph-break---\nAnd another utterance.</div>\n"