small update

Author: agricolamz

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: lingglosses
 Type: Package
 Title: Interlinear Glossed Linguistic Examples and Abbreviation Lists Generation
-Version: 0.0.11
+Version: 0.0.12
 Depends: R (>= 4.2.0)
 Authors@R: person("George", "Moroz",
                   role = c("aut", "cre"),

NAMESPACE

@@ -23,6 +23,7 @@ importFrom(knitr,is_html_output)
 importFrom(knitr,is_latex_output)
 importFrom(knitr,knit_hooks)
 importFrom(knitr,opts_current)
+importFrom(knitr,opts_knit)
 importFrom(methods,hasArg)
 importFrom(methods,missingArg)
 importFrom(rmarkdown,metadata)

R/gloss_example.R

@@ -145,7 +145,6 @@ gloss_example <- function(transliteration,
     glosses_by_word
   }
 
-
 # add example to the example list ------------------------------------------
   if(write_to_db){
     glossed_df <- lingglosses::convert_to_df(
@@ -159,10 +158,14 @@ gloss_example <- function(transliteration,
 
 # add glosses to the document gloss list -----------------------------------
   glosses_by_word |>
-    strsplit("(?=[-\\.=:\\)\\(!\\?<>\\~\\+\uFF3D\uFF3B])", perl = TRUE) |>
+    gsub(pattern = "\uFF3B", replacement = "\\[") |>
+    gsub(pattern = "\uFF3D", replacement = "\\]", glosses) |>
+    strsplit("(?=[-\\.=:\\)\\(!\\?<>\\~\\+\\]\\[])", perl = TRUE) |>
     lapply(FUN = function(i){
       gsub(pattern = "<", replacement = "&lt;", x = i) |>
-        gsub(pattern = ">", replacement = "&gt;", x = _)
+        gsub(pattern = ">", replacement = "&gt;", x = _) |>
+        gsub(pattern = "\\[", replacement = "\uFF3B", x = _) |>
+        gsub(pattern = "\\]", replacement = "\uFF3D", x = _)
       }) ->
     single_gl
 

R/zzz.r

@@ -45,11 +45,14 @@ get_variable_name <- function(){
 #' @examples
 #' small_caps("NOM")
 #' @importFrom knitr is_latex_output
+#' @importFrom knitr opts_knit
 
 small_caps <- function(gloss){
   if(knitr::is_latex_output()){
     paste(paste0('\\textsc{', tolower(gloss), '}'))
-  } else {
+  } else if(isTRUE(knitr::opts_knit$get('rmarkdown.pandoc.to') == "docx")) {
+    gloss
+  } else{
     paste(paste0('<span style="font-variant:small-caps;">',
                  tolower(gloss),
                  '</span>'))

docs/index.Rmd

@@ -202,7 +202,7 @@ gloss_example("Learn to value yourself, which means: to fight for your happiness
 
 ## Multiline examples
 
-Sometimes examples are too long and do not fit onto the page. In that case you need to add the argument `results='asis'` to your chunk. `gloss_example()` will then automatically split your example into multiple rows.
+Sometimes examples are too long and do not fit onto the page. In that case you need to add the argument `results='asis'` to your chunk in Rmarkdown document or `#| results: 'asis'` if you worl with Quarto document. `gloss_example()` will then automatically split your example into multiple rows.
 
 (@tsa_ex) Mishlesh Tsakhur, East Caucasian [@maisak07: 386]
 ```{r, results='asis'}