fixed #321: non-alphanumeric characters in chunk labels will be repla…

…ced by _
yihui · Jul 8, 2012 · bb2021c · bb2021c
1 parent 5ed0a15
commit bb2021c
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/parser.R b/R/parser.R
@@ -56,6 +56,11 @@ parse_block = function(input) {
   params = parse_params(params)
 
   label = params$label
+  if (str_detect(label, '[^-_[:alnum:]]')) {
+    label = str_replace_all(label, '[^-_[:alnum:]]', '_')
+    warning('replaced special characters in chunk label "', params$label, '" (', label, ')')
+    params$label = label
+  }
   code = block[-1L]
   if (length(code)) {
     if (label %in% names(knit_code$get())) stop("duplicated label '", label, "'")