A customisable row extension function. (#29)

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: keedwell
 Title: Latin Squares in R
-Version: 0.1.1.9001
+Version: 0.1.1.9002
 Authors@R: 
     person("Matthew", "Henderson", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-7949-8208"))

R/add-rows.R

@@ -11,27 +11,22 @@
 #'
 #' @param R latin rectangle
 #' @param rows empty rows to be filled
+#' @param strategy row filling strategy
 #'
-#' @return A latin rectangle with more rows.
+#' @return
 #' @export
-add_rows <- function(R, rows) {
+add_rows <- function(R, rows, strategy = next_row_matching) {
 
   # we assume that the dimension equals
   # the number of columns
   l_order <- length(unique(R$column))
 
   for (i in rows) {
 
-    R <- R |>
-      dplyr::bind_rows(
-        tibble::tibble(
-             row = rep(i, l_order),
-          column = 1:l_order,
-          symbol = next_row(R, l_order)
-        )
-      )
+    R <- strategy(R, i, l_order)
 
   }
 
   return(R)
+
 }