R/recip_anti.R

In bansell/tidyExt: Handy Wrappers and Extensions for the Tidyverse

#' Print values in vector 1 that are not in vector 2.
#'
#' see \href{https://github.com/bansell/tidyExt#tidyext-package}{\strong{tidyExt vignette}}
#'
#' @return A tibble.
#' @param x_vec vector of elements of any type
#' @param y_vec vector of elements of any type

#' @examples
#' recip_anti(x_vec= c('apple', 'banana','pear'), y_vec = c('banana','peach'))
#'
#' @importFrom rlang .data

#' @export
recip_anti <- function(x_vec, y_vec){

# requireNamespace("tibble")
# requireNamespace("dplyr")
# requireNamespace("tidyr")
# requireNamespace("purrr")

a <- unique(x_vec)
b <- unique(y_vec)

print(c(utils::head(a), utils::head(b)))

res_a <- a[which(!a %in% b)]
res_b <- b[which(!b %in% a)]

if(!(length(res_a)>0 | length(res_b)>0)) {
  message('NULL result; try recip_table() first.')
} else{
  lst <- list(res_a, res_b)

  #from https://stackoverflow.com/a/53684216
  res_tbl <- purrr::map_dfr(lst, ~dplyr::as_tibble(t(.)) ) |>
    dplyr::mutate(tag=c("x_not_in_y",'y_not_in_x')) |>
    tidyr::gather("key","value",-.data$tag) |>
    tidyr::spread(.data$tag,.data$value) |> dplyr::select(-.data$key)

  return(res_tbl)
}

}