#36 fix finding

eblondel · Feb 28, 2020 · 86a48e7 · 86a48e7
1 parent 5522fdc
commit 86a48e7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/WFSCapabilities.R b/R/WFSCapabilities.R
@@ -86,7 +86,8 @@ WFSCapabilities <- R6Class("WFSCapabilities",
      findFeatureTypeByName = function(expr){
        result <- lapply(private$featureTypes, function(x){
           ft <- NULL
-          if(attr(regexpr(expr, x$getName()), "match.length") != -1){
+          if(attr(regexpr(expr, x$getName()), "match.length") != -1 
+             && endsWith(x$getName(), expr)){
             ft <- x
           }
            return(ft)