R/utils.R

`%notin%` <- function(x,y) !(x %in% y)

leadgr <- function(x, y){
  if(!is.na(x)){
    while(nchar(x)<y){
      x <- paste("0",x,sep="")
    }
  }
  return(x)
}
benjaminrobinson/LearnDC documentation built on May 12, 2019, 11:55 a.m.