add lingglosses.italic_transliteration option

DESCRIPTION

@@ -19,6 +19,6 @@ LazyData: true
 URL: https://CRAN.R-project.org/package=phonfieldwork, https://agricolamz.github.io/lingglosses/
 BugReports: https://github.com/agricolamz/lingglosses/issues
 Imports: kableExtra, knitr, rmarkdown, utils, htmltools, methods
-RoxygenNote: 7.1.2
+RoxygenNote: 7.2.1
 Suggests: testthat (>= 3.0.0)
 Config/testthat/edition: 3

NEWS.md

@@ -4,6 +4,7 @@
 - fix plus sign bug (thx to Nastya Panova);
 - fix tab bug (thx to Tatiana Philippova and Polina Nasledskova);
 - fix multiline `gloss_example()`;
+- add `lingglosses.italic_transliteration` option;
 
 # lingglosses 0.0.4
 

R/gloss_example.R

@@ -55,7 +55,7 @@ gloss_example <- function(transliteration,
                           video_width = 320,
                           video_height = 240,
                           line_length = 70,
-                          italic_transliteration = TRUE,
+                          italic_transliteration = getOption("lingglosses.italic_transliteration"),
                           drop_transliteration = FALSE,
                           intext = FALSE,
                           write_to_db = TRUE){

R/zzz.r

@@ -7,6 +7,7 @@
 
 .onLoad <- function(libname = find.package("lingglosses"),
                     pkgname = "lingglosses") {
+  options("lingglosses.italic_transliteration" = TRUE)
   tmp_file1 <- tempfile(pattern = get_variable_name(), fileext = ".csv")
   options("lingglosses.glosses_list" = tmp_file1)
   tmp_file2 <- tempfile(pattern = "lingglosses.example.table", fileext = ".csv")

docs/index.Rmd

@@ -103,10 +103,12 @@ gloss_example(transliteration = "bur-e-**ri** c'in-ne-sːu-w",
 
 In this first example you can see that:
 
-* the transliteration line is italic by default (if you do not want it, just add the argument `italic_transliteration = FALSE`);
+* the transliteration line is italic by default (if you do not want it, just add the argument `italic_transliteration = FALSE`)[^ital-all];
 * you can use standard markdown syntax (e.g. `**a**` for **bold**);
 * the free translation line is automatically framed with quotation marks.
 
+[^ital-all]: Sometimes it is make sense to set this option ones for the whole document using the following code `options("lingglosses.italic_transliteration" = FALSE)`.
+
 Since the function arguments' names are optional in R, users can omit them as long as they follow the order of the arguments (you can always find the correct order in `?gloss_example`):
 
 ```{r}