R/selif.R

"selif" <-
function(x,c)
{
  x <- cbind(x,t(t(c)));
  w <- x[x[,ncol(x)]!=0];
  dim(w) <- c(length(w)/ncol(x),ncol(x));
  w[,1:(ncol(w)-1),drop=FALSE];
}
chrisadolph/tileForShiny documentation built on Feb. 6, 2022, 12:34 a.m.