R/whichIdentical.R

In gogonzo/oddsandsods: Miscellanous functions

#' Shows dupicated rows by selected MR columns
#'
#' Shows dupicated rows by selected MR columns
#' @description When some columns i1, i2, i3 show some feature in some order eg. i1="B" i2 = "A" i3="D" and one assumes no order.
#' @export
whichIdentical <- function(data, cols){
  rows <- list()

  for( i in 1:nrow(data)){
    row <- c()

    for(j in 1:length(cols))
      row %<>% append(data[i, cols[j]][[1]])

    rows[[i]] <- paste(sort( unlist(row) ), collapse=",")
  }
  df <- do.call("c",rows)
  df %>% duplicated
}