Add empty_room function. (#20)

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: wallis
 Title: Room squares in R
-Version: 0.0.0.9003
+Version: 0.0.0.9004
 Authors@R: 
     person("Matthew", "Henderson", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-7949-8208"))

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(empty_cells)
+export(empty_room)
 export(n_filled_cells)
 export(plot_room_square)
 export(unused_pairs)

R/empty-room.R

@@ -0,0 +1,10 @@
+#' Create a partial Room square with no filled cells
+#'
+#' @param n Size of partial Room square to create.
+#'
+#' @return A partial Room square of size n with no filled cells.
+#' @export
+empty_room <- function(n = 5) {
+  tidyr::expand_grid(row = 1:(n - 1), col = 1:(n - 1)) |>
+    dplyr::mutate(first = as.numeric(NA), second = as.numeric(NA))
+}