R/utils.R

Defines functions substrRight delete.na

delete.na <- function(df, n=0) {
  df[rowSums(is.na(df)) <= n,]
}

substrRight <- function(x, n){
  substr(x, nchar(x)-n+1, nchar(x))
}
US-Department-of-the-Treasury/insiderTrades documentation built on Dec. 18, 2021, 5:17 p.m.