Add order arguments to two functions. (#29)

* Ignore the .github folder when building.

* Add order argument to is_maximal_proom signature.

* Add order parameter to unused_pairs signature.

.Rbuildignore

@@ -4,3 +4,4 @@
 ^wallis.*\.tar\.gz$
 ^wallis.*\.tgz$
 ^LICENSE\.md$
+^.github$

R/room.R

@@ -26,15 +26,14 @@ is_room <- function(R) {
 #' Is R a maximal partial Room square?
 #'
 #' @param R A partial Room square.
+#' @param n Order of R.
 #'
 #' @return True if and only if R is a maximal partial Room square, False otherwise.
 #' @export
-is_maximal_proom <- function(R) {
+is_maximal_proom <- function(R, n) {
 
   result <- is_partial_room(R)
 
-  n <- max(R$col)
-
   R <- R |>
     dplyr::mutate(
       see = purrr::map2(row, col, see2, R = R)

R/unused-pairs.R

@@ -1,13 +1,12 @@
 #' Pairs not used in a partial Room square
 #'
 #' @param R A partial Room square.
+#' @param n Order of R.
 #'
 #' @return A list of pairs not used in R.
 #' @export
-unused_pairs <- function(R) {
+unused_pairs <- function(R, n) {
 
-  n <- max(R$row) + 1
-
   used_pairs <- R |> dplyr::select(first, second)
 
   x <- combn(0:(n - 1), 2)