# -------------------------------------------------------------------------------------------------------------------------  #
  #  -----------------------------------------------------------------------------------------------------------------------   #
  #                                                                                                                            #
  #           File Name              :  lookBehindPlusSpace.r                                                                  #
  #           Last Updated Funclist  :  08 Feb 2015,  5:12 AM (Sunday)                                                         #
  #                                                                                                                            #
  #           Author Name            :  Rick Saporta                                                                           #
  #           Author Email           :  RickSaporta@gmail.com                                                                  #
  #           Author URL             :  www.github.com/rsaporta                                                                #
  #                                                                                                                            #
  #           Packages Called        :  NA                                                                                     #
  #           Packages Used via NS   :  NA                                                                                     #
  #                                                                                                                            #
  #  -----------------------------------------------------------------------------------------------------------------------   #
  #                                                                                                                            #
  #                                                                                                                            #
  #                                                                                                                            #
  #                                                                                                                            #
  #                                                     <END FUNCS>                                                            #
  #  -----------------------------------------------------------------------------------------------------------------------   #
  # -------------------------------------------------------------------------------------------------------------------------  #

# lookBehindPlusSpace <- function(behind, restOfPattern, minSpaces=0, maxSpaces=10, space.char="\\s") {
#   frmt.b <- sprintf("(?<!%s%%s)", behind)
# 
#   pat.b <- regOr(sprintf("(?<!%s%s{%i})", behind, space.char, minSpaces:maxSpaces))
#   pat <- paste0(pat.b, restOfPattern)
#   grep(pat, raw, perl=TRUE)
#   grepl("[^(--\\s*)]##", raw)
# 
# }