R/XSearchFunction.R

In EduardoJacob/xfunctions: Eduardo Jacob's Utility Functions

#' Search which packages a function belongs to
#'
#' Searches in loaded environments
#'
#' @param functionName 
#'
#' @return
#' @export
#'
#' @examples
XSearchFunction = function(functionName) {
  found = F
  
  for ( e in search() ) {
    if ( exists(functionName,where=e,inherits = F) ) {
      message("Found ",functionName," at ",e)
      found = T
    }
  }
  
  if ( !found ) message("Error: Can't find ",functionName)
  invisible()
} # XSearchFunction