Mercurial > repos > davidvanzessen > shm_csr
diff check_unique_id.r @ 57:cb779a45537b draft
Uploaded
author | davidvanzessen |
---|---|
date | Tue, 18 Jul 2017 04:28:11 -0400 |
parents | ee807645b224 |
children |
line wrap: on
line diff
--- a/check_unique_id.r Mon Jul 17 10:44:40 2017 -0400 +++ b/check_unique_id.r Tue Jul 18 04:28:11 2017 -0400 @@ -8,7 +8,7 @@ stop("First argument doesn't contain the 'Sequence number' column") } -tbl = table(current$Sequence.ID) +tbl = table(current[,"Sequence ID"]) l_tbl = length(tbl) check = any(tbl > 1)