Remove timestamp

asadow · Sep 4, 2024 · 6d3c18c · 6d3c18c
1 parent f0d1e4e
commit 6d3c18c
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 12 deletions.
diff --git a/R/pull.R b/R/pull.R
@@ -56,17 +56,6 @@ mm_data <- function(endpoint, ..., allfields = TRUE) {
     }
   }
 
-  ## Add ts timestamp column
-  timestamps <- successes |>
-    purrr::map(\(x) x |> purrr::pluck("headers", "Date") |> parse_header_date())
-  pages <- purrr::map2(
-    pages,
-    timestamps,
-    \(x, y) if(!is.null(x)) {
-      x |> dplyr::mutate(ts = !!y)
-    } else x
-    )
-
   data <- pages |> mm_pagebind()
   data |>
     remove_api_urls() |>

diff --git a/tests/testthat/test-get.R b/tests/testthat/test-get.R
@@ -11,7 +11,7 @@ with_mock_dir("mm_data", {
     got <- mm_data("status")
 
     expect_s3_class(got, "tbl_df")
-    expect_named(got, c("ampc_required", "description", "status", "ts"))
+    expect_named(got, c("ampc_required", "description", "status"))
   })
 })