R/quiet_join.R

In waldronlab/HMP16SData: 16S rRNA Sequencing Data from the Human Microbiome Project

#' @keywords internal
#'
#' @importFrom magrittr %>%
#' @importFrom dplyr full_join
quiet_join <- function(x, y) {
    list(x, y) %>%
        lapply(colnames) %>%
        Reduce(intersect, x = .) %>%
        full_join(x, y, by = .)
}