R/util.R

Defines functions colrow2dirpos

colrow2dirpos <- function(col, row) {
  if (is.null(col)) {
    list(direction = "h",
         pos       = row)
  } else if (is.null(row)) {
    list(direction = "v",
         pos       = col)
  } else {
  }
}
luciphr/colrectr documentation built on Dec. 21, 2021, 12:41 p.m.