@@ -142,7 +142,7 @@ gmql_join <- function(left_data, right_data, genometric_predicate, joinBy,

     else

         join_matrix <- .jnull("java/lang/String")

-    if(!is.null(reg_attributes))

+    if(!identical(reg_attributes,""))

     {

         if(!is.character(reg_attributes))

             stop("metadata: no valid input")

@@ -103,6 +103,8 @@ read_gmql <- function(dataset, parser = "CustomParser", is_local = TRUE,

         if(identical(parser_name,"CUSTOMPARSER"))

         {

             list <- show_schema(url,dataset)

+            coords_sys <- list$coordinate_system

+            type <- list$type

             schema_names <- vapply(list$fields, function(x){x$name},

                                         character(1))

             schema_type <- vapply(list$fields, function(x){x$type},