diff --git a/DESCRIPTION b/DESCRIPTION index 0d06e6a..d661fa7 100644 --- a/DESCRIPTION +++ b/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", , "matthew.james.henderson@gmail.com", role = c("aut", "cre"), comment = c(ORCID = "0000-0001-7949-8208")) diff --git a/NAMESPACE b/NAMESPACE index 5bde190..7965d7e 100644 --- a/NAMESPACE +++ b/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) diff --git a/R/empty-room.R b/R/empty-room.R new file mode 100644 index 0000000..56ef7f7 --- /dev/null +++ b/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)) +} \ No newline at end of file diff --git a/man/empty_room.Rd b/man/empty_room.Rd new file mode 100644 index 0000000..ea30294 --- /dev/null +++ b/man/empty_room.Rd @@ -0,0 +1,17 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/empty-room.R +\name{empty_room} +\alias{empty_room} +\title{Create a partial Room square with no filled cells} +\usage{ +empty_room(n = 5) +} +\arguments{ +\item{n}{Size of partial Room square to create.} +} +\value{ +A partial Room square of size n with no filled cells. +} +\description{ +Create a partial Room square with no filled cells +}