if (FALSE) {
# Get all metadata for a datatype
metadata_table <- get_layers_metadata("wms-r")
# Get all "administratif" wms layers
apikey <- get_apikeys()[1] #administratif
admin_layers <- get_layers_metadata("wms-r", apikey)
}
Run the code above in your browser using DataLab