order_conflicts <- function(fun, df){
find(fun) %>%
stringr::str_replace_all("package:", "")
}
conflictr <- function(){
list_functions <- function(package){
lsf.str(stringr::str_c("package:", package)) %>%
as.character() %>%
dplyr::as_tibble() %>%
dplyr::mutate(Package = package)
}
loaded_packages <-(.packages())
functions <- purrr::map(loaded_packages, list_functions)
conflicts <- functions %>%
dplyr::bind_rows() %>%
dplyr::group_by(value) %>%
tidyr::nest() %>%
dplyr::mutate(conflicts = purrr::map(data, nrow)) %>%
tidyr::unnest(conflicts) %>%
dplyr::filter(conflicts > 1) %>%
dplyr::select(-conflicts) %>%
dplyr::mutate(conflicts = purrr::map2(value,data , order_conflicts)) %>%
dplyr::select(-conflicts) %>%
tidyr::unnest() %>%
dplyr::group_by(value) %>%
dplyr::mutate(Row = dplyr::row_number() - 1) %>%
tidyr::spread(Row, Package) %>%
dplyr::rename(fun = value) %>%
dplyr::ungroup()
names(conflicts)[1] <- "Function"
names(conflicts)[2] <- "Package_Used"
if(ncol(conflicts) > 2)
names(conflicts)[3:ncol(conflicts)] <- stringr::str_c("conflict_",names(conflicts)[3:ncol(conflicts)])
conflicts
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.