consolidate WMS getLayers

eblondel · Jun 3, 2021 · d30c1c7 · d30c1c7
1 parent cc1862c
commit d30c1c7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/WMSCapabilities.R b/R/WMSCapabilities.R
@@ -75,7 +75,7 @@ WMSCapabilities <- R6Class("WMSCapabilities",
      if(pretty){
        layers <- do.call("rbind", lapply(layers, function(x){
          return(data.frame(
-           name = x$getName(),
+           name = if(!is.null(x$getName())){x$getName()}else{NA},
            title = x$getTitle(),
            stringsAsFactors = FALSE
          ))