Update tidyselect data-expressions

ropensci · Aug 21, 2023 · f761359 · f761359
1 parent a66345b
commit f761359
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/annotations_by_id.R b/R/annotations_by_id.R
@@ -61,13 +61,13 @@ epmc_annotations_by_id_ <- function(ids = NULL, .pb = NULL) {
     out <- tibble::tibble(
       source = req[["source"]],
       ext_id = req[["extId"]],
-      pmcid = dplyr::if_else(
+      pmcid = ifelse(
         is.null(req[["pmcid"]]), NA_character_, req[["pmcid"]]
         ),
       annotations = req[["annotations"]]
     )
-    tidyr::unnest(tidyr::unnest(out, .data$annotations),
-                  .data$tags)
+    tidyr::unnest(tidyr::unnest(out, "annotations"),
+                  "tags")
   } else {
     NULL
   }

diff --git a/R/epmc_details.r b/R/epmc_details.r
@@ -127,7 +127,7 @@ parse_aut <- function(res) {
     out <- tibble::tibble()
       }
   if("authorAffiliationDetailsList.authorAffiliation" %in% colnames(out))
-    out <- tidyr::unnest(out, cols = c(.data$authorAffiliationDetailsList.authorAffiliation))
+    out <- tidyr::unnest(out, cols = c("authorAffiliationDetailsList.authorAffiliation"))
   return(out)
 }