Allow for enigne agnistic code.

find chunk start and ends via odd / even regex matches that are engine agnostic.

Author: lorenzwalthert

R/transform-code.R

@@ -73,8 +73,9 @@ identify_r_raw_chunks <- function(lines, engine_pattern = get_engine_pattern())
   if (is.null(pattern$chunk.begin) || is.null(pattern$chunk.end)) {
     stop("Unrecognized chunk pattern!", call. = FALSE)
   }
-  starts <- grep("^[\t >]*```+\\s*\\{\\s*([a-zA-Z0-9]+.*)\\}\\s*$", lines, perl = TRUE)
-  ends <- grep("^[\t >]*```+\\s*$", lines, perl = TRUE)
+  chunks <- grep("^[\t >]*```+\\s*", lines, perl = TRUE)
+  starts <- odd(chunks)
+  ends <- even(chunks)
 
   if (length(starts) != length(ends)) {
     stop("Malformed file!", call. = FALSE)

R/utils.R

@@ -1,5 +1,25 @@
 parse_text <- function(x) parse(text = x)[[1L]]
 
+line_col_names <- function() {
+  c("line1", "line2", "col1", "col2")
+}
+
+#' Check whether two columns match
+#'
+#' @param col1,col2 Column names as string.
+#' @param data The data frames that contains `col1` and `col2`.
+two_cols_match <- function(col1, col2, data) {
+  all(unlist(data[col1]) == unlist(data[col2]))
+}
+
+odd <- function(x) {
+  x[seq(1L, length(x), by = 2)]
+}
+
+even <- function(x) {
+  x[seq(2L, length(x), by = 2)]
+}
+
 #' Repeat elements of a character vector `times` times and collapse it
 #'
 #' @param char A character vector.