R/howManyRC.R

In inSileco/graphicsutils: Collection of graphics utilities

#' How many rows and columns
#'
#' Compute the number of rows and columns to split a graphic window into panels
#' as equally as possible.
#'
#' @param n a positive integer (or coercible as is).
#'
#' @export
#'
#' @return
#' A vector of two elements: the number of rows followed by the number of 
#' columns.

howManyRC <- function(n) {
    n <- as.integer(n[1L])
    stopifnot(n > 0)
    ##
    sqr <- sqrt(n)
    fsq <- floor(sqr)
    nbr <- nbc <- fsq
    #
    if (sqr - fsq != 0)
        nbr <- fsq + 1
    if (n - nbr * nbc > 0)
        nbc <- fsq + 1
    #
    c(nbr, nbc)
}