R/conflicts.R

In nflverse: Easily Install and Load the 'nflverse'

# nflverse_conflicts <- function() {
#   envs <- grep("^package:", search(), value = TRUE)
#   envs <- purrr::set_names(envs)
#   objs <- invert(lapply(envs, ls_env))
#
#   conflicts <- purrr::keep(objs, ~ length(.x) > 1)
#
#   nflverse_names <-
#     paste0("package:", nflverse_packages())
#   conflicts <- purrr::keep(conflicts, ~ any(.x %in% nflverse_names))
#
#   conflict_funs <- purrr::imap(conflicts, confirm_conflict)
#   conflict_funs <- purrr::compact(conflict_funs)
#
#   structure(conflict_funs, class = "nflverse_conflicts")
# }
#
# nflverse_conflict_message <- function(x) {
#   if (length(x) == 0) {
#     return("")
#   }
#
#   header <- cli::rule(
#     left = crayon::bold("Conflicts"),
#     right = "nflverse_conflicts()"
#   )
#
#   pkgs <- x %>% purrr::map(~ gsub("^package:", "", .))
#   others <- pkgs %>% purrr::map(`[`, -1)
#   other_calls <- purrr::map2_chr(
#     others, names(others),
#     ~ paste0(crayon::blue(.x), "::", .y, "()", collapse = ", ")
#   )
#
#   winner <- pkgs %>% purrr::map_chr(1)
#   funs <- format(paste0(
#     crayon::blue(winner),
#     "::",
#     crayon::green(paste0(names(x), "()"))
#   ))
#   bullets <- paste0(
#     crayon::red(cli::symbol$cross), " ", funs,
#     " masks ", other_calls,
#     collapse = "\n"
#   )
#
#   paste0(header, "\n", bullets)
# }
#
#
# print.nflverse_conflicts <- function(x, ..., startup = FALSE) {
#   cli::cat_line(nflverse_conflict_message(x))
# }
#
#
# confirm_conflict <- function(packages, name) {
#   # Only look at functions
#   objs <- packages %>%
#     purrr::map(~ get(name, pos = .)) %>%
#     purrr::keep(is.function)
#
#   if (length(objs) <= 1) {
#     return()
#   }
#
#   # Remove identical functions
#   objs <- objs[!duplicated(objs)]
#   packages <- packages[!duplicated(packages)]
#   if (length(objs) == 1) {
#     return()
#   }
#
#   packages
# }
#
# ls_env <- function(env) {
#   x <- ls(pos = env)
#   if (identical(env, "package:dplyr")) {
#     x <- setdiff(x, c("intersect", "setdiff", "setequal", "union"))
#   }
#   x
# }