... | ... |
@@ -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 |
|