Count the number of leading (and trailing) NAs in each column of a data frame

LeadingNA

# Usage
# LeadingNA(x)
#
# x is a data frame
# Value
#  A data frame, with two rows, leading NAs and trailing NAs

LeadingNA <- function(x){
  num.col <- ncol(x)
  trailing.na <- rep(0, times = num.col)
  leading.na <- rep(0, times = num.col)
  for(i in 1:num.col){
    my.rl <- rle(is.na(data.cont[[i]]))
    if(my.rl$values[1]) leading.na[i] = my.rl$lengths[1]
    if(my.rl$values[length(my.rl$values)]) trailing.na[i] = my.rl$lengths[length(my.rl$values)]
    
  }
  out <- as.data.frame(rbind(leading.na, trailing.na))
  names(out) = names(x)
  out
  
}