R/repColsRows.R

In zzawadz/customLayout: Arrange Elements on the R's Drawing Area or Inside the 'PowerPoint' Slide

layColRepGenerator <- function(side)
{
  if(side == "widths") fnc <- lay_bind_col
  if(side == "heights") fnc <- lay_bind_row
  
  function(layout, n)
  {
    layall <- layout
    if(n > 1) for(i in 2:n)
    {
      size <- c(i-1,1)
      layall <- fnc(layall,layout, size)
    }
    layall
  }
}

layRepByCol <- layColRepGenerator("widths")
layRepByRow <- layColRepGenerator("heights")