grepl(..., code) may return a logical vector of length > 1, which wil…

…l fail in r-devel when _R_CHECK_LENGTH_1_CONDITION_=true
yihui · Dec 10, 2018 · 0d9f1c4 · 0d9f1c4
1 parent 7f36b39
commit 0d9f1c4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/block.R b/R/block.R
@@ -470,7 +470,7 @@ process_tangle.block = function(x) {
     paste(unlist(cmds), collapse = '\n')
   } else knit_code$get(label)
   # read external code if exists
-  if (!isFALSE(ev) && length(code) && grepl('read_chunk\\(.+\\)', code)) {
+  if (!isFALSE(ev) && length(code) && any(grepl('read_chunk\\(.+\\)', code))) {
     eval(parse_only(unlist(stringr::str_extract_all(code, 'read_chunk\\(([^)]+)\\)'))))
   }
   code = parse_chunk(code)