amend f5c9d58: when s2 == '', i2 is a scalar, so i2[i] may contain NA…

…s when i > 1
yihui · Nov 23, 2024 · 6474e0e · 6474e0e
1 parent 7cb5e49
commit 6474e0e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/knitr.R b/R/knitr.R
@@ -145,7 +145,9 @@ divide_chunk = function(engine, code) {
   i = 1:n2; src = code[i]; code = code[-i]
 
   # extract meta from comments, then parse it
-  meta = substr(src, nchar(s1) * i1[i] + 1, nchar(src) - nchar(s2) * i2[i])
+  c1 = nchar(s1) * i1[i] + 1
+  c2 = nchar(src) - if (s2 == '') 0 else nchar(s2) * i2[i]
+  meta = substr(src, c1, c2)
   # see if the metadata looks like YAML or CSV
   if (grepl('^[^ :]+:($|\\s)', meta[1])) {
     meta = yaml_load(meta, envir = FALSE)