===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
r-cran-medadherence-1.03/R/preData.R-7-    newdt        <- df;
r-cran-medadherence-1.03/R/preData.R:8:    newdt$id     <- eval(substitute(newdt$id,list(id=as.name(id))))
r-cran-medadherence-1.03/R/preData.R:9:    newdt$rxDay  <- eval(substitute(newdt$rxref,list(rxref=as.name(rxref))))
r-cran-medadherence-1.03/R/preData.R:10:    newdt$Supp   <- eval(substitute(newdt$rxsup,list(rxsup=as.name(rxsup))))
r-cran-medadherence-1.03/R/preData.R-11-    if(!is.numeric(newdt$rxDay)) stop("Please transform the rxDate as numeric first.")