Mercurial > repos > davidvanzessen > shm_csr

comparison check_unique_id.r @ 57:cb779a45537b draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Tue, 18 Jul 2017 04:28:11 -0400
parents ee807645b224
children
comparison
equal deleted inserted replaced
56:ee807645b224 57:cb779a45537b
6 6
7 if(!("Sequence number" %in% names(current))){ 7 if(!("Sequence number" %in% names(current))){
8 stop("First argument doesn't contain the 'Sequence number' column") 8 stop("First argument doesn't contain the 'Sequence number' column")
9 } 9 }
10 10
11 tbl = table(current$Sequence.ID) 11 tbl = table(current[,"Sequence ID"])
12 l_tbl = length(tbl) 12 l_tbl = length(tbl)
13 check = any(tbl > 1) 13 check = any(tbl > 1)
14 14
15 #if(l_tbl != nrow(current)){ # non unique IDs? 15 #if(l_tbl != nrow(current)){ # non unique IDs?
16 if(check){ 16 if(check){