Generating 'dungeon' patterns

[trevorld]

• One possible unusual future use-case for {r.oguelike}---if/when it reaches CRAN---could be generating "dungeon" patterns for use with {gridpattern} / {ggpattern}: 'dungeon' pattern? trevorld/gridpattern#55
• Easiest on the {gridpattern} end if we had a function that generates a matrix of integers.
• Currently not that hard to wrap the current generate_dungeon() for this:

n_row <- 20
n_col <- 30
invisible(capture.output({
    m <- r.oguelike::generate_dungeon(n_row=n_row+2, n_col=n_col+2, seed = 42)
}))
m <- m[2:(n_row+1), ]
m <- m[, 2:(n_col+1)]
m <- matrix(as.integer(factor(m, levels = c("#", "."))),
            nrow = n_row, ncol = n_col)