#' 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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.