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)