Add a function to create a first row in natural order

DESCRIPTION

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

NAMESPACE

@@ -2,3 +2,4 @@
 
 export(add_cols)
 export(add_rows)
+export(first_row_natural)

R/add-rows.R

@@ -13,7 +13,7 @@
 #' @param rows empty rows to be filled
 #' @param strategy row filling strategy
 #'
-#' @return
+#' @return A latin rectangle
 #' @export
 add_rows <- function(R, rows, strategy = next_row_matching) {
 

R/first-row.R

@@ -0,0 +1,10 @@
+#' First row in in natural order
+#'
+#' @param n Number of columns
+#'
+#' @return A 1 x n latin rectangle with first row 1,...,n
+#' @export
+first_row_natural <- function(n) {
+  tidyr::expand_grid(row = 1:1, column = 1:n) |>
+    dplyr::mutate(symbol = 1:n)
+}