R/init_puzzle.R

In JerBoon/xwordR: Crossword compilation utilities

#' Title
#'
#' @param nrow
#' @param ncol
#' @param symmetry
#'
#' @return
#' @export
#'
#' @ImportFrom dplyr %>%
#'
#' @examples
#'
init_puzzle <- function(nrow=15,ncol=15, symmetry=2) {

  grid <- matrix(as.character(NA), nrow,ncol)

  df <- readr::read_csv("DA,x,y,Length
                 A,1,1,8
                 A,10,1,6
                 A,1,3,8
                 A,10,3,6
                 A,1,5,12
                 A,1,7,6
                 A,8,7,8
                 A,1,9,8
                 A,10,9,6
                 A,4,11,12
                 A,1,13,6
                 A,8,13,8
                 A,1,15,6
                 A,8,15,8
                 D,2,1,7
                 D,2,9,7
                 D,4,1,7
                 D,4,9,7
                 D,6,1,9
                 D,6,11,5
                 D,8,1,15
                 D,10,1,5
                 D,10,7,9
                 D,12,1,7
                 D,12,9,7
                 D,14,1,7
                 D,14,9,7")

  df$Word <- NA
  df$No <- dplyr::group_indices(df,y,x)
  df <- dplyr::arrange(df,DA, No)
  return(df)
}