R/math.R

In mlhutchins/tmath: Don't Worry About It

#' Implement T-Math Funcions
#'
#' @param ... Normal inputs to base functions
#' @return Original returns plus something special
#' @name tmath
NULL

#' @rdname tmath
#' @export
`+` <- function(...) {

    if (runif(1) > 0.98) {
        
    	if (runif(1) > 0.98) {

    		mrTSay()

		} else {

	        cat(getTQuote())
	        cat("\n")

        }
    }

    return(base::`+`(...))

}

#' @rdname tmath
#' @export
`-` <- function(...) {

    if (runif(1) > 0.98) {
        
    	if (runif(1) > 0.98) {

    		mrTSay()

		} else {

	        cat(getTQuote())
	        cat("\n")

        }
    }

    return(base::`-`(...))

}

#' @rdname tmath
#' @export
`*` <- function(...) {

    if (runif(1) > 0.98) {
        
    	if (runif(1) > 0.98) {

    		mrTSay()

		} else {

	        cat(getTQuote())
	        cat("\n")

        }
    }

    return(base::`*`(...))

}

#' @rdname tmath
#' @export
`/` <- function(...) {

    if (runif(1) > 0.98) {
        
    	if (runif(1) > 0.98) {

    		mrTSay()

		} else {

	        cat(getTQuote())
	        cat("\n")

        }
    }

    return(base::`/`(...))

}

#' @rdname tmath
#' @export
`^` <- function(...) {

    if (runif(1) > 0.98) {
        
    	if (runif(1) > 0.98) {

    		mrTSay()

		} else {

	        cat(getTQuote())
	        cat("\n")

        }
    }

    return(base::`^`(...))

}