pull ids with wcGetDeployID

noaa-afsc · Nov 28, 2023 · 90419b1 · 90419b1
1 parent 70051db
commit 90419b1
Showing 1 changed file with 18 additions and 13 deletions.
diff --git a/R/get_wc_data.R b/R/get_wc_data.R
@@ -1,16 +1,21 @@
-get_wc_data <- function() {
-  ids <- c("6333a5fc17e8480e28ae482a",
-           "6333a5fc17e8480e28ae482c",
-           "6333a5fc17e8480e28ae482e",
-           "6333a5fc17e8480e28ae4830",
-           "6333a5fc17e8480e28ae4832",
-           "6333c6eb17e8480e28ae4fe0",
-           "633601df17e8480e28ae9e99",
-           "633601e017e8480e28ae9e9d",
-           "633601e017e8480e28ae9e9f",
-           "633601e017e8480e28ae9ea4",
-           "633601e017e8480e28ae9eaa",
-           "633610f017e8480e28aea03e")
+get_wc_data <- function(deployids) {
+
+  ids <- purrr::map_dfr(
+    deployids,~ wcUtils::wcGetDeployID(wcUtils::wcPOST(), 
+                                                 deployid = .x)
+  ) |> pull(ids)
+  # ids <- c("6333a5fc17e8480e28ae482a",
+  #          "6333a5fc17e8480e28ae482c",
+  #          "6333a5fc17e8480e28ae482e",
+  #          "6333a5fc17e8480e28ae4830",
+  #          "6333a5fc17e8480e28ae4832",
+  #          "6333c6eb17e8480e28ae4fe0",
+  #          "633601df17e8480e28ae9e99",
+  #          "633601e017e8480e28ae9e9d",
+  #          "633601e017e8480e28ae9e9f",
+  #          "633601e017e8480e28ae9ea4",
+  #          "633601e017e8480e28ae9eaa",
+  #          "633610f017e8480e28aea03e")
 
   res <- purrr::map(ids, wcGetDownload)