Advance 1.0.0 deprecations (#1194)

hadley · web-flow · commit b07e76092d07 · 2025-08-23T06:45:34.000+12:00
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # purrr (development version)
 
+* All functions that were soft-deprecated in purrr 1.0.0 are now fully deprecated. They will be removed in a future release. This includes: `invoke_*()`, `lift_*()`, `cross*()`, `prepend()`, `splice()`, `rbernoulli()`, `rdunif()`, `when()`, `update_list()`, `*_raw()`, `vec_depth()`.
+* `map_chr()` no longer coereces from logical, integer, or double to strings.
 * All functions and arguments deprecated in purrr 0.3.0 have now been removed. This includes `%@%`, `accumulate_right()`, `at_depth()`, `cross_d()`, `cross_n()`, `reduce2_right()`, and `reduce_right()`.
 
 # purrr 1.1.0
diff --git a/R/coerce.R b/R/coerce.R
@@ -7,22 +7,7 @@ coerce <- function(x, type) {
 coerce_lgl <- function(x) coerce(x, "logical")
 coerce_int <- function(x) coerce(x, "integer")
 coerce_dbl <- function(x) coerce(x, "double")
-coerce_chr <- function(x) {
-  local_deprecation_user_env()
-  coerce(x, "character")
-}
-
-
-deprecate_to_char <- function(type) {
-  lifecycle::deprecate_warn(
-    "1.0.0",
-    I(paste0("Automatic coercion from ", type, " to character")),
-    I("an explicit call to `as.character()` within `map_chr()`"),
-    always = TRUE,
-    user_env = the$deprecation_user_env
-  )
-}
-
+coerce_chr <- function(x) coerce(x, "character")
 
 # Can rewrite after https://github.com/r-lib/rlang/issues/1643
 local_deprecation_user_env <- function(
diff --git a/R/deprec-cross.R b/R/deprec-cross.R
@@ -112,7 +112,7 @@
 #' list(x = x, y = x) |>
 #'   cross(.filter = `==`)
 cross <- function(.l, .filter = NULL) {
-  lifecycle::deprecate_soft(
+  lifecycle::deprecate_warn(
     "1.0.0",
     "purrr::cross()",
     "tidyr::expand_grid()",
@@ -167,7 +167,7 @@ cross <- function(.l, .filter = NULL) {
 #' @export
 #' @rdname cross
 cross2 <- function(.x, .y, .filter = NULL) {
-  lifecycle::deprecate_soft(
+  lifecycle::deprecate_warn(
     "1.0.0",
     "purrr::cross2()",
     "tidyr::expand_grid()",
@@ -179,7 +179,7 @@ cross2 <- function(.x, .y, .filter = NULL) {
 #' @export
 #' @rdname cross
 cross3 <- function(.x, .y, .z, .filter = NULL) {
-  lifecycle::deprecate_soft(
+  lifecycle::deprecate_warn(
     "1.0.0",
     "purrr::cross3()",
     "tidyr::expand_grid()",
@@ -191,7 +191,7 @@ cross3 <- function(.x, .y, .z, .filter = NULL) {
 #' @rdname cross
 #' @export
 cross_df <- function(.l, .filter = NULL) {
-  lifecycle::deprecate_soft(
+  lifecycle::deprecate_warn(
     "1.0.0",
     "purrr::cross_df()",
     "tidyr::expand_grid()",
diff --git a/R/deprec-invoke.R b/R/deprec-invoke.R
@@ -79,7 +79,7 @@
 #'
 #' @export
 invoke <- function(.f, .x = NULL, ..., .env = NULL) {
-  lifecycle::deprecate_soft("1.0.0", "invoke()", "exec()")
+  lifecycle::deprecate_warn("1.0.0", "invoke()", "exec()")
 
   .env <- .env %||% parent.frame()
   args <- c(as.list(.x), list(...))
@@ -97,7 +97,7 @@ as_invoke_function <- function(f) {
 #' @rdname invoke
 #' @export
 invoke_map <- function(.f, .x = list(NULL), ..., .env = NULL) {
-  lifecycle::deprecate_soft("1.0.0", "invoke_map()", I("map() + exec()"))
+  lifecycle::deprecate_warn("1.0.0", "invoke_map()", I("map() + exec()"))
 
   .env <- .env %||% parent.frame()
   .f <- as_invoke_function(.f)
@@ -106,7 +106,7 @@ invoke_map <- function(.f, .x = list(NULL), ..., .env = NULL) {
 #' @rdname invoke
 #' @export
 invoke_map_lgl <- function(.f, .x = list(NULL), ..., .env = NULL) {
-  lifecycle::deprecate_soft("1.0.0", "invoke_lgl()", I("map_lgl() + exec()"))
+  lifecycle::deprecate_warn("1.0.0", "invoke_lgl()", I("map_lgl() + exec()"))
 
   .env <- .env %||% parent.frame()
   .f <- as_invoke_function(.f)
@@ -115,7 +115,7 @@ invoke_map_lgl <- function(.f, .x = list(NULL), ..., .env = NULL) {
 #' @rdname invoke
 #' @export
 invoke_map_int <- function(.f, .x = list(NULL), ..., .env = NULL) {
-  lifecycle::deprecate_soft("1.0.0", "invoke_int()", I("map_int() + exec()"))
+  lifecycle::deprecate_warn("1.0.0", "invoke_int()", I("map_int() + exec()"))
 
   .env <- .env %||% parent.frame()
   .f <- as_invoke_function(.f)
@@ -124,7 +124,7 @@ invoke_map_int <- function(.f, .x = list(NULL), ..., .env = NULL) {
 #' @rdname invoke
 #' @export
 invoke_map_dbl <- function(.f, .x = list(NULL), ..., .env = NULL) {
-  lifecycle::deprecate_soft("1.0.0", "invoke_dbl()", I("map_dbl() + exec()"))
+  lifecycle::deprecate_warn("1.0.0", "invoke_dbl()", I("map_dbl() + exec()"))
 
   .env <- .env %||% parent.frame()
   .f <- as_invoke_function(.f)
@@ -133,7 +133,7 @@ invoke_map_dbl <- function(.f, .x = list(NULL), ..., .env = NULL) {
 #' @rdname invoke
 #' @export
 invoke_map_chr <- function(.f, .x = list(NULL), ..., .env = NULL) {
-  lifecycle::deprecate_soft("1.0.0", "invoke_chr()", I("map_chr() + exec()"))
+  lifecycle::deprecate_warn("1.0.0", "invoke_chr()", I("map_chr() + exec()"))
 
   .env <- .env %||% parent.frame()
   .f <- as_invoke_function(.f)
@@ -142,7 +142,7 @@ invoke_map_chr <- function(.f, .x = list(NULL), ..., .env = NULL) {
 #' @rdname invoke
 #' @export
 invoke_map_raw <- function(.f, .x = list(NULL), ..., .env = NULL) {
-  lifecycle::deprecate_soft("1.0.0", "invoke_raw()", I("map_raw() + exec()"))
+  lifecycle::deprecate_warn("1.0.0", "invoke_raw()", I("map_raw() + exec()"))
 
   .env <- .env %||% parent.frame()
   .f <- as_invoke_function(.f)
@@ -153,7 +153,7 @@ invoke_map_raw <- function(.f, .x = list(NULL), ..., .env = NULL) {
 #' @rdname invoke
 #' @export
 invoke_map_dfr <- function(.f, .x = list(NULL), ..., .env = NULL) {
-  lifecycle::deprecate_soft(
+  lifecycle::deprecate_warn(
     "1.0.0",
     "invoke_df()",
     I("map() + exec() + list_rbind()")
diff --git a/R/deprec-lift.R b/R/deprec-lift.R
@@ -68,7 +68,7 @@ NULL
 #' fun <- function(x) exec("sum", !!!x)
 #' exec(sum, 3, NA, 4, na.rm = TRUE)
 lift <- function(..f, ..., .unnamed = FALSE) {
-  lifecycle::deprecate_soft("1.0.0", "lift()")
+  lifecycle::deprecate_warn("1.0.0", "lift()")
 
   force(..f)
   defaults <- list(...)
@@ -87,7 +87,7 @@ lift_dl <- lift
 #' @rdname lift
 #' @export
 lift_dv <- function(..f, ..., .unnamed = FALSE) {
-  lifecycle::deprecate_soft("1.0.0", "lift_dv()")
+  lifecycle::deprecate_warn("1.0.0", "lift_dv()")
 
   force(..f)
   defaults <- list(...)
@@ -121,7 +121,7 @@ lift_dv <- function(..f, ..., .unnamed = FALSE) {
 #' # now
 #' pmap_dbl(mtcars, \(...) mean(c(...)))
 lift_vl <- function(..f, ..., .type) {
-  lifecycle::deprecate_soft("1.0.0", "lift_vl()")
+  lifecycle::deprecate_warn("1.0.0", "lift_vl()")
 
   force(..f)
   defaults <- list(...)
@@ -138,7 +138,7 @@ lift_vl <- function(..f, ..., .type) {
 #' @rdname lift
 #' @export
 lift_vd <- function(..f, ..., .type) {
-  lifecycle::deprecate_soft("1.0.0", "lift_vd()")
+  lifecycle::deprecate_warn("1.0.0", "lift_vd()")
 
   force(..f)
   defaults <- list(...)
@@ -177,7 +177,7 @@ lift_vd <- function(..f, ..., .type) {
 #' mtcars |> pmap_lgl(\(...) any(c(...) > 200))
 #'
 lift_ld <- function(..f, ...) {
-  lifecycle::deprecate_soft("1.0.0", "lift_ld()")
+  lifecycle::deprecate_warn("1.0.0", "lift_ld()")
 
   force(..f)
   defaults <- list(...)
@@ -189,7 +189,7 @@ lift_ld <- function(..f, ...) {
 #' @rdname lift
 #' @export
 lift_lv <- function(..f, ...) {
-  lifecycle::deprecate_soft("1.0.0", "lift_lv()")
+  lifecycle::deprecate_warn("1.0.0", "lift_lv()")
 
   force(..f)
   defaults <- list(...)
diff --git a/R/deprec-prepend.R b/R/deprec-prepend.R
@@ -26,7 +26,7 @@
 #' x |> prepend(list("a", "b"), before = 3)
 #' prepend(list(), x)
 prepend <- function(x, values, before = NULL) {
-  lifecycle::deprecate_soft("1.0.0", "prepend()", I("append(after = 0)"))
+  lifecycle::deprecate_warn("1.0.0", "prepend()", I("append(after = 0)"))
 
   n <- length(x)
   stopifnot(is.null(before) || (before > 0 && before <= n))
diff --git a/R/deprec-rerun.R b/R/deprec-rerun.R
@@ -64,7 +64,7 @@ deprec_rerun <- function(.n, ..., .purrr_user_env) {
     new <- substitute(map(1:n, ~ list(...)))
   }
 
-  lifecycle::deprecate_soft(
+  lifecycle::deprecate_warn(
     when = "1.0.0",
     what = "rerun()",
     with = "map()",
diff --git a/R/deprec-splice.R b/R/deprec-splice.R
@@ -22,7 +22,7 @@
 #' c(inputs, arg3 = c("c1", "c2")) |> str()
 #' @export
 splice <- function(...) {
-  lifecycle::deprecate_soft("1.0.0", "splice()", "list_flatten()")
+  lifecycle::deprecate_warn("1.0.0", "splice()", "list_flatten()")
 
   splice_if(list(...), is_bare_list)
 }
diff --git a/R/deprec-utils.R b/R/deprec-utils.R
@@ -15,7 +15,7 @@
 #' rbernoulli(10)
 #' rbernoulli(100, 0.1)
 rbernoulli <- function(n, p = 0.5) {
-  lifecycle::deprecate_soft("1.0.0", "rbernoulli()")
+  lifecycle::deprecate_warn("1.0.0", "rbernoulli()")
   stats::runif(n) > (1 - p)
 }
 
@@ -35,7 +35,7 @@ rbernoulli <- function(n, p = 0.5) {
 #' table(rdunif(1e3, 10))
 #' table(rdunif(1e3, 10, -5))
 rdunif <- function(n, b, a = 1) {
-  lifecycle::deprecate_soft("1.0.0", "rdunif()")
+  lifecycle::deprecate_warn("1.0.0", "rdunif()")
 
   stopifnot(is.numeric(a), length(a) == 1)
   stopifnot(is.numeric(b), length(b) == 1)
diff --git a/R/deprec-when.R b/R/deprec-when.R
@@ -54,7 +54,7 @@
 #' }
 #' @export
 when <- function(., ...) {
-  lifecycle::deprecate_soft("1.0.0", "when()", I("`if`"))
+  lifecycle::deprecate_warn("1.0.0", "when()", I("`if`"))
 
   dots <- list(...)
   names <- names(dots)
diff --git a/R/list-modify.R b/R/list-modify.R
@@ -135,7 +135,7 @@ check_list <- function(x, call = caller_env(), arg = caller_arg(x)) {
 #' @export
 #' @keywords internal
 update_list <- function(.x, ...) {
-  lifecycle::deprecate_soft("1.0.0", "update_list()")
+  lifecycle::deprecate_warn("1.0.0", "update_list()")
 
   dots <- dots_list(...)
 
diff --git a/R/map-raw.R b/R/map-raw.R
@@ -10,34 +10,34 @@
 #' @keywords internal
 #' @export
 map_raw <- function(.x, .f, ...) {
-  lifecycle::deprecate_soft("1.0.0", "map_raw()", "map_vec()")
+  lifecycle::deprecate_warn("1.0.0", "map_raw()", "map_vec()")
   map_("raw", .x, .f, ...)
 }
 
 #' @export
 #' @rdname map_raw
 map2_raw <- function(.x, .y, .f, ...) {
-  lifecycle::deprecate_soft("1.0.0", "map2_raw()", "map2_vec()")
+  lifecycle::deprecate_warn("1.0.0", "map2_raw()", "map2_vec()")
   map2_("raw", .x, .y, .f, ...)
 }
 
 #' @rdname map_raw
 #' @export
 imap_raw <- function(.x, .f, ...) {
-  lifecycle::deprecate_soft("1.0.0", "imap_raw()", "imap_vec()")
+  lifecycle::deprecate_warn("1.0.0", "imap_raw()", "imap_vec()")
   map2_("raw", .x, vec_index(.x), .f, ...)
 }
 
 #' @export
 #' @rdname map_raw
 pmap_raw <- function(.l, .f, ...) {
-  lifecycle::deprecate_soft("1.0.0", "pmap_raw()", "pmap_vec()")
+  lifecycle::deprecate_warn("1.0.0", "pmap_raw()", "pmap_vec()")
   pmap_("raw", .l, .f, ...)
 }
 
 #' @export
 #' @rdname map_raw
 flatten_raw <- function(.x) {
-  lifecycle::deprecate_soft("1.0.0", "flatten_raw()")
+  lifecycle::deprecate_warn("1.0.0", "flatten_raw()")
   .Call(vflatten_impl, .x, "raw")
 }
diff --git a/R/map.R b/R/map.R
@@ -186,7 +186,6 @@ map_dbl <- function(.x, .f, ..., .progress = FALSE) {
 #' @rdname map
 #' @export
 map_chr <- function(.x, .f, ..., .progress = FALSE) {
-  local_deprecation_user_env()
   map_("character", .x, .f, ..., .progress = .progress)
 }
 
diff --git a/R/pluck-depth.R b/R/pluck-depth.R
@@ -37,6 +37,6 @@ pluck_depth <- function(x, is_node = NULL) {
 #' @rdname pluck_depth
 #' @usage NULL
 vec_depth <- function(x) {
-  lifecycle::deprecate_soft("1.0.0", "vec_depth()", "pluck_depth()")
+  lifecycle::deprecate_warn("1.0.0", "vec_depth()", "pluck_depth()")
   pluck_depth(x)
 }
diff --git a/R/utils.R b/R/utils.R
@@ -13,7 +13,7 @@ where_at <- function(
   }
 
   if (is_quosures(at)) {
-    lifecycle::deprecate_soft(
+    lifecycle::deprecate_warn(
       when = "1.0.0",
       what = I("Using `vars()` in .at"),
       user_env = user_env
diff --git a/man/cross.Rd b/man/cross.Rd
diff --git a/revdep/README.md b/revdep/README.md
@@ -1,6 +1,6 @@
 # Revdeps
 
-## Failed to check (15)
+## Failed to check (16)
 
 |package          |version |error  |warning |note |
 |:----------------|:-------|:------|:-------|:----|
@@ -9,6 +9,7 @@
 |dsTidyverse      |?       |       |        |     |
 |[kerastuneR](failures.md#kerastuner)|0.1.0.7 |__+1__ |        |     |
 |metajam          |0.3.1   |1      |        |     |
+|multinma         |0.8.1   |1      |        |     |
 |nesRdata         |0.3.1   |1      |        |     |
 |ontologics       |0.7.4   |1      |        |     |
 |rdflib           |0.2.9   |1      |        |     |
@@ -20,17 +21,19 @@
 |[tidyjson](failures.md#tidyjson)|0.3.2   |__+1__ |        |-1   |
 |TriDimRegression |1.0.2   |1      |        |     |
 
-## New problems (9)
+## New problems (11)
 
-|package                |version |error     |warning |note     |
-|:----------------------|:-------|:---------|:-------|:--------|
-|[admiral](problems.md#admiral)|1.3.1   |          |        |1 __+1__ |
-|[CohortCharacteristics](problems.md#cohortcharacteristics)|1.0.0   |__+1__    |        |2        |
-|[CPAT](problems.md#cpat)|0.1.0   |__+1__    |        |1        |
-|[MeasurementDiagnostics](problems.md#measurementdiagnostics)|0.1.0   |__+1__    |        |         |
-|[omock](problems.md#omock)|0.4.0   |1 __+1__  |        |         |
-|[OmopSketch](problems.md#omopsketch)|0.5.1   |__+2__    |        |1        |
-|[PatientProfiles](problems.md#patientprofiles)|1.4.2   |__+1__    |        |         |
-|[quincunx](problems.md#quincunx)|0.1.10  |__+2__    |        |         |
-|[wbids](problems.md#wbids)|1.0.0   |-1 __+1__ |        |1        |
+|package        |version |error  |warning |note   |
+|:--------------|:-------|:------|:-------|:------|
+|[autothresholdr](problems.md#autothresholdr)|1.4.2   |__+1__ |        |1      |
+|[casino](problems.md#casino)|0.1.0   |__+1__ |        |2      |
+|[CPAT](problems.md#cpat)|0.1.0   |__+1__ |        |1      |
+|[egor](problems.md#egor)|1.24.2  |__+2__ |        |       |
+|[immunarch](problems.md#immunarch)|0.9.1   |__+1__ |        |1      |
+|[LTFGRS](problems.md#ltfgrs)|1.0.0   |__+1__ |        |       |
+|[PopED](problems.md#poped)|0.7.0   |       |        |__+1__ |
+|[quincunx](problems.md#quincunx)|0.1.10  |__+2__ |        |       |
+|[rbmi](problems.md#rbmi)|1.4.1   |__+1__ |        |       |
+|[SCORPIUS](problems.md#scorpius)|1.0.9   |       |__+1__  |1      |
+|[tfrmt](problems.md#tfrmt)|0.1.3   |__+2__ |        |       |
 
diff --git a/revdep/cran.md b/revdep/cran.md
diff --git a/revdep/failures.md b/revdep/failures.md
diff --git a/revdep/problems.md b/revdep/problems.md
diff --git a/src/coerce.c b/src/coerce.c
diff --git a/tests/testthat/_snaps/coerce.md b/tests/testthat/_snaps/coerce.md
diff --git a/tests/testthat/test-coerce.R b/tests/testthat/test-coerce.R

Original file line number	Diff line number	Diff line change
`@@ -64,7 +64,7 @@ deprec_rerun <- function(.n, ..., .purrr_user_env) {`
`64`	`64`	`new <- substitute(map(1:n, ~ list(...)))`
`65`	`65`	`}`
`66`	`66`
`67`		`- lifecycle::deprecate_soft(`
	`67`	`+ lifecycle::deprecate_warn(`
`68`	`68`	`when = "1.0.0",`
`69`	`69`	`what = "rerun()",`
`70`	`70`	`with = "map()",`
Original file line number	Diff line number	Diff line change
`@@ -22,7 +22,7 @@`
`22`	`22`	`#' c(inputs, arg3 = c("c1", "c2")) \|> str()`
`23`	`23`	`#' @export`
`24`	`24`	`splice <- function(...) {`
`25`		`- lifecycle::deprecate_soft("1.0.0", "splice()", "list_flatten()")`
	`25`	`+ lifecycle::deprecate_warn("1.0.0", "splice()", "list_flatten()")`
`26`	`26`
`27`	`27`	`splice_if(list(...), is_bare_list)`
`28`	`28`	`}`