Fix bug caused by typo

jonmcalder · jonmcalder · commit 4ede116ec649 · 2018-10-23T23:35:36.000+02:00
diff --git a/R/transform-code.R b/R/transform-code.R
@@ -92,7 +92,7 @@ identify_raw_chunks <- function(lines, filetype, engine_pattern = get_engine_pat
   } else if (filetype == "Rnw") {
     starts <- grep(pattern$chunk.begin, lines, perl = TRUE)
     ends <- grep(pattern$chunk.end, lines, perl = TRUE)
-    is_r_code <- rep(TRUE, length(start))
+    is_r_code <- rep(TRUE, length(starts))
   }
 
   if (length(starts) != length(ends)) {

Original file line number	Diff line number	Diff line change
`@@ -92,7 +92,7 @@ identify_raw_chunks <- function(lines, filetype, engine_pattern = get_engine_pat`
`92`	`92`	`} else if (filetype == "Rnw") {`
`93`	`93`	`starts <- grep(pattern$chunk.begin, lines, perl = TRUE)`
`94`	`94`	`ends <- grep(pattern$chunk.end, lines, perl = TRUE)`
`95`		`- is_r_code <- rep(TRUE, length(start))`
	`95`	`+ is_r_code <- rep(TRUE, length(starts))`
`96`	`96`	`}`
`97`	`97`
`98`	`98`	`if (length(starts) != length(ends)) {`