ensure import

lorenzwalthert · lorenzwalthert · commit 492168bd0147 · 2021-07-12T14:42:35.000+02:00
diff --git a/R/transform-code.R b/R/transform-code.R
@@ -90,7 +90,7 @@ identify_raw_chunks <- function(lines, filetype, engine_pattern = get_engine_pat
     starts <- grep("^[\t >]*```+\\s*\\{([Rr]( *[ ,].*)?)\\}\\s*$", lines, perl = TRUE)
     ends <- grep("^[\t >]*```+\\s*$", lines, perl = TRUE)
     ends <- purrr::imap_int(starts, ~ ends[which(ends > .x)[1]]) %>%
-      na.omit()
+      stats::na.omit()
     if (length(starts) != length(ends) || anyDuplicated(ends) != 0) {
       abort("Malformed file!")
     }

Original file line number	Diff line number	Diff line change
`@@ -90,7 +90,7 @@ identify_raw_chunks <- function(lines, filetype, engine_pattern = get_engine_pat`
`90`	`90`	starts <- grep("^[\t >]```+\\s\\{([Rr]( [ ,].)?)\\}\\s*$", lines, perl = TRUE)
`91`	`91`	ends <- grep("^[\t >]```+\\s$", lines, perl = TRUE)
`92`	`92`	`ends <- purrr::imap_int(starts, ~ ends[which(ends > .x)[1]]) %>%`
`93`		`- na.omit()`
	`93`	`+ stats::na.omit()`
`94`	`94`	`if (length(starts) != length(ends) \|\| anyDuplicated(ends) != 0) {`
`95`	`95`	`abort("Malformed file!")`
`96`	`96`	`}`