R/util-fns_equal.R

In filecacher: File Cacher

#' Check whether two function objects have the same text definition.
#'
#' @param x First function to compare.
#' @param y Second function to compare.
#'
#' @return Logical
fns_equal <- function(x, y) {
  if (!rlang::is_function(x) || !rlang::is_function(y)) {
    stop("`x` and `y` must be functions.")
  }

  deparse1(x) == deparse1(y)
}