R/fillout.R

"fillout" <-
function(x,y) {
  if (is.vector(x))
    while (length(x)<y)  x <- c(x,x)
  x[1:y]
}
chrisadolph/tileForShiny documentation built on Feb. 6, 2022, 12:34 a.m.