clarion: print warning if there are multiple unique_ids; only use fir…

…st unique_id
loosolab · Mar 21, 2019 · b1f9438 · b1f9438
1 parent 0bf0b7f
commit b1f9438
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/clarion.R b/R/clarion.R
@@ -56,7 +56,7 @@ Clarion <- R6::R6Class("Clarion",
                            # return unique_id
                            # if no type return first feature
                            if (is.element("type", names(self$metadata))) {
-                             return(self$metadata[type == "unique_id"][["key"]])
+                             return(self$metadata[type == "unique_id"][["key"]][1])
                            } else {
                              return(self$metadata[level == "feature"][["key"]][1])
                            }
@@ -201,6 +201,10 @@ Clarion <- R6::R6Class("Clarion",
                              if (!is.element("unique_id", self$metadata[["type"]])) {
                                stop("Metadata: No unique_id defined in type! Please define a unique_id.")
                              }
+                             # case: multiple unique_ids
+                             if (sum(is.element(self$metadata[["type"]], "unique_id")) > 1) {
+                               warning("Metadata: Found multiple unique_ids! Only first will be used.")
+                             }
                              # case: type = array but no delimiter
                              if (is.element("array", self$metadata[["type"]]) && !is.element("delimiter", names(self$header))) {
                                stop("Found type=array but no delimiter! Columns with multi-value fields require delimiter (in header) and type=array (in metadata).")