R/pasteColums.R

Defines functions pasteColums

pasteColums <-
function(x, sep = " & ")
{
  b <- x[, 1]
  if(ncol(x) > 1){
    for(i in 2:ncol(x)){
      a <- x[, i]
      b <- paste(b, a, sep = sep)
    }
  }
  b
}

Try the logicFS package in your browser

Any scripts or data that you put into this service are public.

logicFS documentation built on Nov. 8, 2020, 5:23 p.m.