Enable the "untranslation" of designated text using a marker

[CarwilB]

Functionalize this code with as untranslated_join_vars() with prefix and suffix parameters.

don <- don %>% translated_join_vars(
c("event_title", "dec_affiliation",
"state_responsibility", "intentionality",
"protest_domain"),
translation) %>%
mutate(cause_death_es = str_c("(en): ", cause_death)) %>%
add_nameline_es() %>%
add_dateline_es() %>%
add_simple_label_es() %>%
add_detailed_label() %>%
add_detailed_label_es()