Add a function to create a first row in natural order.

MHenderson · May 29, 2024 · 10178d9 · 10178d9
1 parent 9c5fac0
commit 10178d9
Show file tree

Hide file tree

Showing 4 changed files with 29 additions and 1 deletion.
diff --git a/DESCRIPTION b/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"))

diff --git a/NAMESPACE b/NAMESPACE
@@ -2,3 +2,4 @@
 
 export(add_cols)
 export(add_rows)
+export(first_row_natural)
diff --git a/R/first-row.R b/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)
+}
diff --git a/man/first_row_natural.Rd b/man/first_row_natural.Rd
Original file line number	Diff line number	Diff line change
Expand Up		@@ -2,3 +2,4 @@

		export(add_cols)
		export(add_rows)
		export(first_row_natural)