From 86a48e7d42fb3d1ac4bf4742b9cdf70a53b3b8c3 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Fri, 28 Feb 2020 20:19:48 +0100
Subject: [PATCH] #36 fix finding

---
 R/WFSCapabilities.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/WFSCapabilities.R b/R/WFSCapabilities.R
index 4aa4980..aefdb1b 100644
--- 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)