#43 fix findFeatureByName

eblondel · Jul 7, 2021 · d760ff1 · d760ff1
1 parent 0c00db0
commit d760ff1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/WMSCapabilities.R b/R/WMSCapabilities.R
@@ -140,7 +140,7 @@ WMSCapabilities <- R6Class("WMSCapabilities",
    findLayerByName = function(expr, exact = TRUE){
      result <- lapply(private$layers, function(x){
        ft <- NULL
-       if(attr(regexpr(expr, x$getName()), "match.length") != -1 
+       if(!is.null(x$getName())) if(attr(regexpr(expr, x$getName()), "match.length") != -1 
           && endsWith(x$getName(), expr)){
          ft <- x
        }