Column duplication

verify-not-dub-col

#!/usr/bin/Rscript --vanilla


rm(list=ls())

options(stringsAsFactors=FALSE)

# libraries
library(dplyr)
library(magrittr)
library(assertr)


test <- read.csv("./test.csv", stringsAsFactors=FALSE)

(names(test))
# [1] "colour"   "count"    "double"   "square"   "double.1"

any(duplicated(t(test)))


test %>%
  t %>%             # transposes the data frame
  duplicated %>%    # returns BOOL is each row (column) is duplicated
  any               # will return TRUE is any bool is TRUE


# with assertr
test %>%
  verify(!any(duplicated(t(.)))) %>%
  head