don't identify [..., @foo-bar] as cross reference, which should be citation instead

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: litedown
 Type: Package
 Title: A Lightweight Version of R Markdown
-Version: 0.1.1
+Version: 0.1.2
 Authors@R: c(
    person("Yihui", "Xie", role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0003-0645-5666")),
    person()

R/mark.R

@@ -197,7 +197,7 @@ mark = function(input, output = NULL, text = NULL, options = NULL, meta = list()
   # turn @ref into [@ref](#ref) and resolve cross-references later in JS; for
   # latex output, turn @ref to \ref{}
   r_ref = '([a-z]+)-([-_[:alnum:]]+)'  # must start with letters followed by -
-  r5 = paste0('(^|(?<=\\s|\\())@', r_ref)
+  r5 = paste0('(^|(?<=\\s|\\())@', r_ref, '(?!\\])')
   if (test_feature('cross_refs', r5)) {
     text[p] = match_replace(text[p], r5, function(x) {
       sprintf('[%s](%s)', x, sub('^@', '#', x))