some basic checks when creating an empty plate that we are not adding…

… duplicate barcodes
EPPIcenter · Oct 26, 2022 · 7fc6d88 · 7fc6d88
1 parent 22b751a
commit 7fc6d88
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/inst/sampleDB/server_helpers/AppMoveMicronixSamples.R b/inst/sampleDB/server_helpers/AppMoveMicronixSamples.R
@@ -150,9 +150,11 @@ CreateEmptyMicronixPlate <- function(input, output, database){
     )
 
     if (CheckTable(database = database, table = "matrix_plate") %>%
-      filter(input$CreateEmptyMicronixPlateID == plate_name) %>%
+      filter(input$CreateEmptyMicronixPlateID == plate_name | plate_barcode == input$CreateEmptyMicronixPlateBarcode) %>%
       nrow(.) > 0) {
-      showNotification("Plate name exists!", id = "MoveNotification", type = "error", action = NULL, duration = 3, closeButton = TRUE)
+      showNotification("Value would have created a duplicate!", id = "MoveNotification", type = "error", action = NULL, duration = 3, closeButton = TRUE)
+    } else if (nchar(input$CreateEmptyMicronixPlateBarcode) != 10) {
+      showNotification("Barcode must be 10 digits!", id = "MoveNotification", type = "error", action = NULL, duration = 3, closeButton = TRUE)
     } else {
       conn <- RSQLite::dbConnect(RSQLite::SQLite(), database)
       RSQLite::dbBegin(conn)