No longer importing modify_at

Avoids issue introduced with purrr 0.3.0
ropensci · Jan 29, 2019 · d57b553 · d57b553
1 parent fb59b7d
commit d57b553
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -51,7 +51,6 @@ importFrom(purrr,"%||%")
 importFrom(purrr,imap_chr)
 importFrom(purrr,map)
 importFrom(purrr,map_chr)
-importFrom(purrr,modify_at)
 importFrom(purrr,pluck)
 importFrom(purrr,set_names)
 importFrom(purrr,transpose)

diff --git a/R/utils-api-responses.R b/R/utils-api-responses.R
@@ -83,16 +83,18 @@ raise_error <- function(x) {
 
 # Convert datetime attributes to POSIXct objects
 # param x an OSF response list that contains an attributes element
-#' @importFrom purrr modify_at
 parse_datetime_attrs <- function(x) {
   stopifnot(is.list(x))
   stopifnot("attributes" %in% names(x))
 
-  x$attributes <-  purrr::modify_at(x$attributes,
-    .at = c("date_registered", "date_created", "date_modified", "modified_utc"),
-    .f = parse_datetime
+  dt_keys <- intersect(
+    c("date_registered", "date_created", "date_modified", "modified_utc"),
+    names(x$attributes)
   )
 
+  dt_vals <- lapply(x$attributes[dt_keys], parse_datetime)
+
+  x$attributes <- modifyList(x$attributes, dt_vals)
   return(x)
 }