R/utils.R

In insiderTrades: Tools to Download Insider Transactions and Holdings

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))
}

Try the insiderTrades package in your browser