Browse code

minor fix

Simone authored on 11/01/2018 14:41:36
Showing 1 changed files

... ...
@@ -146,6 +146,10 @@ gmql_join <- function(left_data, right_data, genometric_predicate, joinBy,
146 146
         if(!is.character(reg_attributes))
147 147
             stop("metadata: no valid input")
148 148
         
149
+        ouput <- toupper(region_output)
150
+        if(ouput %in% c("CAT","INT"))
151
+            stop("reg_attributes is defined: output cannot be INT or CAT")
152
+        
149 153
         reg_attributes <- reg_attributes[!reg_attributes %in% ""]
150 154
         reg_attributes <- reg_attributes[!duplicated(reg_attributes)]
151 155