From ac2472db480044558c4ff2211e1898c52dc9db25 Mon Sep 17 00:00:00 2001
From: alexanderbates <alexander.shakeel.bates@gmail.com>
Date: Wed, 21 Aug 2024 00:18:10 -0400
Subject: [PATCH] Update banc-table.R

---
 R/banc-table.R | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/R/banc-table.R b/R/banc-table.R
index 6022687..ec121c5 100644
--- a/R/banc-table.R
+++ b/R/banc-table.R
@@ -358,16 +358,16 @@ banc_update_status <- function(df, update, col = "status", wipe = FALSE){
   df
 }
 
-# Example of adding a labels to the status column
-bc <- banctable_query()
-sizes <- as.numeric(bc$l2_cable_length_um)
-sizes[is.na(sizes)] <- 0
-tadpoles <- bc[sizes>1&sizes<10,]
-tadpoles <- banc_update_status(tadpoles,update="INVESTIGATE")
-banctable_update_rows(base = 'banc_meta',
-                      table = "banc_meta",
-                      df = tadpoles[,c("_id","super_class","status")],
-                      append_allowed = FALSE,
-                      chunksize = 100)
+# # Example of adding a labels to the status column
+# bc <- banctable_query()
+# sizes <- as.numeric(bc$l2_cable_length_um)
+# sizes[is.na(sizes)] <- 0
+# tadpoles <- bc[sizes>1&sizes<10,]
+# tadpoles <- banc_update_status(tadpoles,update="INVESTIGATE")
+# banctable_update_rows(base = 'banc_meta',
+#                       table = "banc_meta",
+#                       df = tadpoles[,c("_id","super_class","status")],
+#                       append_allowed = FALSE,
+#                       chunksize = 100)