Merge pull request #324 from lorenzwalthert/hotfix-dplyr

- remove implicit dplyr dependency (#324).

Author: lorenzwalthert

NAMESPACE

@@ -14,14 +14,14 @@ export(tidyverse_reindention)
 export(tidyverse_style)
 import(tibble)
 importFrom(magrittr,"%>%")
+importFrom(purrr,as_mapper)
 importFrom(purrr,compact)
 importFrom(purrr,flatten)
 importFrom(purrr,flatten_chr)
 importFrom(purrr,flatten_int)
 importFrom(purrr,map)
 importFrom(purrr,map2)
 importFrom(purrr,map_chr)
-importFrom(purrr,map_dfr)
 importFrom(purrr,map_lgl)
 importFrom(purrr,partial)
 importFrom(purrr,pmap)

R/dplyr.R

@@ -110,3 +110,11 @@ last <- function(x, order_by = NULL, default = x[NA_real_]) {
 slice <- function(.data, ...) {
   .data[c(...), , drop = FALSE]
 }
+
+#' @importFrom purrr as_mapper map
+map_dfr <- function (.x, .f, ..., .id = NULL) {
+  .f <- as_mapper(.f, ...)
+  res <- map(.x, .f, ...)
+  bind_rows(res, .id = .id)
+}
+

R/relevel.R

@@ -144,7 +144,6 @@ relocate_eq_assign <- function(pd) {
 #' Please refer to the section 'Examples' in [relocate_eq_assign()] for details.
 #' @param pd A parse table.
 #' @importFrom rlang seq2
-#' @importFrom purrr map_dfr
 relocate_eq_assign_nest <- function(pd) {
   idx_eq_assign <- which(pd$token == "EQ_ASSIGN")
   if (length(idx_eq_assign) > 0) {