Use vctrs instead of dplyr

DESCRIPTION

@@ -20,7 +20,6 @@ Imports:
 Suggests: 
     covr,
     crayon,
-    dplyr (>= 0.7.8),
     knitr,
     rmarkdown,
     testthat (>= 3.0.0),

R/flatten.R

@@ -12,8 +12,7 @@
 #'   double vector, and `flatten_chr()` a character vector.
 #'
 #'   `flatten_dfr()` and `flatten_dfc()` return data frames created by
-#'   row-binding and column-binding respectively. They require dplyr to
-#'   be installed.
+#'   row-binding and column-binding respectively.
 #' @inheritParams map
 #' @export
 #' @examples
@@ -63,19 +62,15 @@ flatten_raw <- function(.x) {
 #' @export
 #' @rdname flatten
 flatten_dfr <- function(.x, .id = NULL) {
-  check_installed("dplyr", "for `flatten_dfr()`.")
-
   res <- .Call(flatten_impl, .x)
-  dplyr::bind_rows(res, .id = .id)
+  vctrs::vec_rbind(!!!res, .names_to = .id)
 }
 
 #' @export
 #' @rdname flatten
 flatten_dfc <- function(.x) {
-  check_installed("dplyr", "for `flatten_dfc()`.")
-
   res <- .Call(flatten_impl, .x)
-  dplyr::bind_cols(res)
+  vctrs::vec_cbind(!!!res)
 }
 
 #' @export

R/map.R

@@ -12,8 +12,7 @@
 #'   atomic vector of the indicated type (or die trying).
 #'
 #' * `map_dfr()` and `map_dfc()` return a data frame created by
-#'   row-binding and column-binding respectively. They require dplyr
-#'   to be installed. `map_df()` is an alias for `map_dfr()`.
+#'   row-binding and column-binding respectively.
 #'
 #' * The returned values of `.f` must be of length one for each element
 #'   of `.x`. If `.f` uses an extractor function shortcut, `.default`
@@ -227,11 +226,9 @@ map_raw <- function(.x, .f, ...) {
 #'   Only applies to `_dfr` variant.
 #' @export
 map_dfr <- function(.x, .f, ..., .id = NULL) {
-  check_installed("dplyr", "for `map_dfr()`.")
-
   .f <- as_mapper(.f, ...)
   res <- map(.x, .f, ...)
-  dplyr::bind_rows(res, .id = .id)
+  vctrs::vec_rbind(!!!res, .names_to = .id)
 }
 
 #' @rdname map
@@ -242,11 +239,9 @@ map_df <- map_dfr
 #' @rdname map
 #' @export
 map_dfc <- function(.x, .f, ...) {
-  check_installed("dplyr", "for `map_dfc()`.")
-
   .f <- as_mapper(.f, ...)
-  res <- map(.x, .f, ...)
-  dplyr::bind_cols(res)
+  res <- unname(map(.x, .f, ...))
+  vctrs::vec_cbind(!!!res)
 }
 
 #' @rdname map

R/map2-pmap.R

@@ -9,7 +9,7 @@
 #' that a data frame is a very important special case, in which case `pmap()`
 #' and `pwalk()` apply the function `.f` to each row. `map_dfr()`, `pmap_dfr()`
 #' and `map2_dfc()`, `pmap_dfc()` return data frames created by row-binding
-#' and column-binding respectively. They require dplyr to be installed.
+#' and column-binding respectively.
 #'
 #' Note that arguments to be vectorised over come before `.f`,
 #' and arguments that are supplied to every call come after `.f`.
@@ -136,21 +136,17 @@ map2_raw <- function(.x, .y, .f, ...) {
 #' @rdname map2
 #' @export
 map2_dfr <- function(.x, .y, .f, ..., .id = NULL) {
-  check_installed("dplyr", "for `map2_dfr()`.")
-
   .f <- as_mapper(.f, ...)
   res <- map2(.x, .y, .f, ...)
-  dplyr::bind_rows(res, .id = .id)
+  vctrs::vec_rbind(!!!res, .names_to = .id)
 }
 
 #' @rdname map2
 #' @export
 map2_dfc <- function(.x, .y, .f, ...) {
-  check_installed("dplyr", "for `map2_dfc()`.")
-
   .f <- as_mapper(.f, ...)
-  res <- map2(.x, .y, .f, ...)
-  dplyr::bind_cols(res)
+  res <- unname(map2(.x, .y, .f, ...))
+  vctrs::vec_cbind(!!!res)
 }
 #' @rdname map2
 #' @export
@@ -228,21 +224,17 @@ pmap_raw <- function(.l, .f, ...) {
 #' @rdname map2
 #' @export
 pmap_dfr <- function(.l, .f, ..., .id = NULL) {
-  check_installed("dplyr", "for `pmap_dfr()`.")
-
   .f <- as_mapper(.f, ...)
   res <- pmap(.l, .f, ...)
-  dplyr::bind_rows(res, .id = .id)
+  vctrs::vec_rbind(!!!res, .names_to = .id)
 }
 
 #' @rdname map2
 #' @export
 pmap_dfc <- function(.l, .f, ...) {
-  check_installed("dplyr", "for `pmap_dfc()`.")
-
   .f <- as_mapper(.f, ...)
-  res <- pmap(.l, .f, ...)
-  dplyr::bind_cols(res)
+  res <- unname(pmap(.l, .f, ...))
+  vctrs::vec_cbind(!!!res)
 }
 
 #' @rdname map2

revdep/.gitignore

@@ -1,3 +1,9 @@
 checks/
 logs/
 data.sqlite
+checks
+library
+checks.noindex
+library.noindex
+cloud.noindex
+*.html