write code to advance lifecycle deprecations

[maelle]

I made #1120 "by hand" but next time, we'll have many more messages to change.

[schochastics]

@krlmlr this might be a good claude issue (cc @maelle)

[schochastics]

here is a hybrid LLM solution (The regex were too advanced for me). Can you check if it does the right thing @maelle?

library(stringr)

r_files <- list.files("R", pattern = "\\.R$", full.names = TRUE)

update_deprecations <- function(file, new_version) {
  levels <- c("deprecate_soft", "deprecate_warn", "deprecate_stop")
  level_map <- setNames(
    deprecation_levels[-1],
    deprecation_levels[-length(deprecation_levels)]
  ) |>
    rev()

  content <- paste(readLines(file), collapse = "\n")

  for (old_level in names(level_map)) {
    new_level <- level_map[[old_level]]

    content <- gsub(
      paste0("(?<![a-zA-Z0-9_])(?:lifecycle::)?", old_level),
      paste0("lifecycle::", new_level),
      content,
      perl = TRUE
    )

    content <- gsub(
      paste0("(lifecycle::", new_level, "\\s*\\(\\s*\")([^\"]+)(\")"),
      paste0("\\1", new_version, "\\3"),
      content,
      perl = TRUE
    )
  }

  writeLines(strsplit(content, "\n")[[1]], file)

  invisible(TRUE)
}

purrr::map(r_files,update_deprecations,new_version = "2.2.0")

[maelle]

let me try that in a fresh branch 🌳

[maelle]

The code had "levels" then "deprecation_levels"

We'd have to exclude R/aaa-auto.R