R/zzz.R

Defines functions conflict_scout_format .onAttach

.onAttach <- function(libname, pkgname) {
  pkg_list <- pkg_list_to_attach()
  if (!length(pkg_list)) {
    return()
  }
  pkg_list_attach(pkg_list)

  packageStartupMessage("conflicts_fix()")
  conflicts_fix()

  packageStartupMessage("conflicted::conflict_scout()")
  packageStartupMessage(conflict_scout_format())
}

conflict_scout_format <- function() {
  out <- conflicted::conflict_scout()
  if (length(out) == 0) {
    return("All well")
  }
  utils::capture.output(out, type = "message")
}
poissonconsulting/poispkgs documentation built on March 14, 2024, 5:24 p.m.