===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
r-cran-assertthat-0.2.1/R/assertions-file.r-61-on_failure(has_extension) <- function(call, env) {
r-cran-assertthat-0.2.1/R/assertions-file.r:62:  path <- eval(call$path, env)
r-cran-assertthat-0.2.1/R/assertions-file.r:63:  ext <- eval(call$ext, env)
r-cran-assertthat-0.2.1/R/assertions-file.r-64-  paste0("File '", basename(path), "' does not have extension ", ext)
##############################################
r-cran-assertthat-0.2.1/R/assertions-scalar.R-26-on_failure(is.scalar) <- function(call, env) {
r-cran-assertthat-0.2.1/R/assertions-scalar.R:27:  type <- eval(call$type, env)
r-cran-assertthat-0.2.1/R/assertions-scalar.R-28-  paste0(deparse(call$x), " is not a scalar.")
##############################################
r-cran-assertthat-0.2.1/R/base-is.r-46-base_fs$inherits <- function(call, env) {
r-cran-assertthat-0.2.1/R/base-is.r:47:  class <- eval(call$what, env)
r-cran-assertthat-0.2.1/R/base-is.r-48-  paste0(deparse(call$x), " does not inherit from class ", class)
##############################################
r-cran-assertthat-0.2.1/R/assertions.r-37-on_failure(has_attr) <- function(call, env) {
r-cran-assertthat-0.2.1/R/assertions.r:38:  paste0(deparse(call$x), " does not have attribute ", eval(call$which, env))
r-cran-assertthat-0.2.1/R/assertions.r-39-}
##############################################
r-cran-assertthat-0.2.1/R/assertions.r-49-on_failure(has_name) <- function(call, env) {
r-cran-assertthat-0.2.1/R/assertions.r:50:    out_names <- paste0("'", paste0(eval(call$which, env), collapse = "', '"), "'")
r-cran-assertthat-0.2.1/R/assertions.r-51-    paste0(deparse(call$x), " does not have all of these name(s): ", out_names)
##############################################
r-cran-assertthat-0.2.1/R/assertions.r-70-on_failure(noNA) <- function(call, env) {
r-cran-assertthat-0.2.1/R/assertions.r:71:  n <- sum(is.na(eval(call$x, env)))
r-cran-assertthat-0.2.1/R/assertions.r-72-  paste0(deparse(call$x), " contains ", n, " missing values")
##############################################
r-cran-assertthat-0.2.1/R/assertions.r-152-on_failure(has_args) <- function(call, env) {
r-cran-assertthat-0.2.1/R/assertions.r:153:  args <- paste(eval(call$args, env), collapse = ", ")
r-cran-assertthat-0.2.1/R/assertions.r-154-  paste0("Function " , deparse(call$f), " does not have arguments ", args)
##############################################
r-cran-assertthat-0.2.1/debian/tests/run-unit-test-3-oname=assertthat
r-cran-assertthat-0.2.1/debian/tests/run-unit-test:4:pkg=r-cran-`echo $oname | tr [A-Z] [a-z]`
r-cran-assertthat-0.2.1/debian/tests/run-unit-test-5-
r-cran-assertthat-0.2.1/debian/tests/run-unit-test-6-if [ "$AUTOPKGTEST_TMP" = "" ] ; then
r-cran-assertthat-0.2.1/debian/tests/run-unit-test:7:  AUTOPKGTEST_TMP=`mktemp -d /tmp/${pkg}-test.XXXXXX`
r-cran-assertthat-0.2.1/debian/tests/run-unit-test-8-fi