Add list_layers function (issue #6)

bio-oracle · May 23, 2022 · ffddba8 · ffddba8
1 parent a62e85e
commit ffddba8
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/R/draft.R b/R/draft.R
@@ -24,10 +24,10 @@
 #' names(constraints) = c("time", "latitude", "longitude")
 #' # Test call
 #' download_griddap_dataset(url, datasetid, variables, constraints)
-download_griddap_dataset = function(erddap_server,
-                                    dataset,
+download_griddap_dataset = function(dataset,
                                     variables,
                                     constraints,
+                                    erddap_server="https://erddap-test.emodnet.eu/erddap/",
                                     response="nc",
                                     directory=FALSE,
                                     verbose=TRUE,
@@ -83,3 +83,11 @@ download_griddap_dataset = function(erddap_server,
   return(res)
 }
 
+
+list_layers = function(erddap_server = "https://erddap-test.emodnet.eu/erddap/", filter_biooracle=TRUE) {
+  response = rerddap::ed_datasets("griddap", url=erddap_server)
+  if (isTRUE(filter_biooracle)) {
+    response = response %>% filter(grepl("biooracle",Dataset.ID))
+  }
+  return(response)
+}