Use the base R anonymous function syntax

Author: jennybc

R/browse.R

@@ -79,7 +79,7 @@ browse_package <- function(package = NULL) {
     )
     details <- c(
       details,
-      map(parsed$name, ~ cli::cli_fmt(cli::cli_text("{.val {.x}} remote")))
+      map(parsed$name, \(x) cli::cli_fmt(cli::cli_text("{.val {x}} remote")))
     )
   }
 
@@ -89,8 +89,9 @@ browse_package <- function(package = NULL) {
     details,
     map(
       desc_urls_dat$desc_field,
-      ~ if (is.na(.x)) "CRAN" else
-        cli::cli_fmt(cli::cli_text("{.field {.x}} field in DESCRIPTION"))
+      \(x)
+        if (is.na(x)) "CRAN" else
+          cli::cli_fmt(cli::cli_text("{.field {x}} field in DESCRIPTION"))
     )
   )
   if (length(urls) == 0) {
@@ -106,7 +107,7 @@ browse_package <- function(package = NULL) {
   pretty <- purrr::map2(
     format(urls, justify = "left"),
     details,
-    ~ glue("{.x} ({.y})")
+    \(x, y) glue("{x} ({y})")
   )
   choice <- utils::menu(title = prompt, choices = pretty)
   if (choice == 0) {

R/git-default-branch.R

@@ -650,7 +650,9 @@ fishy_bookdown_config <- function(old_name = "master") {
     return(invisible(character()))
   }
   # I am (very weakly) worried about more than 1 match, hence the [[1]]
-  bookdown_config <- purrr::discard(bookdown_config, ~ grepl("revdep", .x))[[1]]
+  bookdown_config <- purrr::discard(bookdown_config, \(x) grepl("revdep", x))[[
+    1
+  ]]
 
   bookdown_config_lines <- read_utf8(bookdown_config)
   linky_lines <- grep(

R/github-labels.R

@@ -115,7 +115,7 @@ use_github_labels <- function(
     # Must first PATCH issues, then sort out labels
     issues <- map(
       to_rename,
-      ~ gh("GET /repos/{owner}/{repo}/issues", labels = .x)
+      \(x) gh("GET /repos/{owner}/{repo}/issues", labels = x)
     )
     issues <- purrr::flatten(issues)
     number <- map_int(issues, "number")
@@ -133,17 +133,18 @@ use_github_labels <- function(
     new_labels <- split(df$labels, df$number)
     purrr::iwalk(
       new_labels,
-      ~ gh(
-        "PATCH /repos/{owner}/{repo}/issues/{issue_number}",
-        issue_number = .y,
-        labels = I(.x)
-      )
+      \(x, y)
+        gh(
+          "PATCH /repos/{owner}/{repo}/issues/{issue_number}",
+          issue_number = y,
+          labels = I(x)
+        )
     )
 
     # issues have correct labels now; safe to edit labels themselves
     purrr::walk(
       to_rename,
-      ~ gh("DELETE /repos/{owner}/{repo}/labels/{name}", name = .x)
+      \(x) gh("DELETE /repos/{owner}/{repo}/labels/{name}", name = x)
     )
     labels <- union(labels, setdiff(rename, cur_label_names))
   } else {

R/github_token.R

@@ -205,7 +205,7 @@ pat_sitrep <- function(
     emails <- maybe_emails$result
     addresses <- map_chr(
       emails,
-      ~ if (.x$primary) glue_data(.x, "{email} (primary)") else .x[["email"]]
+      \(x) if (x$primary) glue_data(x, "{email} (primary)") else x[["email"]]
     )
     kv_line("Email(s)", addresses)
     ui_silence(

R/latest-dependencies.R

@@ -43,7 +43,7 @@ update_versions <- function(
   packages <- deps$package[to_change]
   versions <- switch(
     match.arg(source),
-    local = map_chr(packages, ~ as.character(utils::packageVersion(.x))),
+    local = map_chr(packages, \(x) as.character(utils::packageVersion(x))),
     CRAN = utils::available.packages()[packages, "Version"]
   )
   deps$version[to_change] <- paste0(">= ", versions)

R/package.R

@@ -101,7 +101,7 @@ use_remote <- function(package, package_remote = NULL) {
 package_remote <- function(desc) {
   remote <- as.list(desc$get(c("RemoteType", "RemoteUsername", "RemoteRepo")))
 
-  is_recognized_remote <- all(map_lgl(remote, ~ is_string(.x) && !is.na(.x)))
+  is_recognized_remote <- all(map_lgl(remote, \(x) is_string(x) && !is.na(x)))
 
   if (is_recognized_remote) {
     # non-GitHub remotes get a 'RemoteType::' prefix

R/pr.R

@@ -832,7 +832,7 @@ pr_list <- function(
     prs <- list(list())
   }
   out <- map(prs, pr_data_tidy)
-  out <- map(out, ~ as.data.frame(.x, stringsAsFactors = FALSE))
+  out <- map(out, \(x) as.data.frame(x, stringsAsFactors = FALSE))
   out <- do.call(rbind, out)
   if (no_prs) {
     out[0, ]
@@ -860,7 +860,7 @@ branches_with_no_upstream_or_github_upstream <- function(tr = NULL) {
   gb_dat$ref <- remref_branch(gb_dat$remref)
   gb_dat$cfg_pr_url <- map_chr(
     glue("branch.{gb_dat$name}.pr-url"),
-    ~ git_cfg_get(.x, where = "local") %||% NA_character_
+    \(x) git_cfg_get(x, where = "local") %||% NA_character_
   )
 
   ghr <- github_remote_list(these = NULL)[["remote"]]
@@ -882,7 +882,7 @@ branches_with_no_upstream_or_github_upstream <- function(tr = NULL) {
   purrr::walk2(
     glue("branch.{dat$name[missing_cfg]}.pr-url"),
     dat$pr_html_url[missing_cfg],
-    ~ gert::git_config_set(.x, .y, repo = repo)
+    \(x, y) gert::git_config_set(x, y, repo = repo)
   )
 
   dat

R/release.R

@@ -534,7 +534,7 @@ is_in_posit_org <- function() {
   urls <- desc$get_urls()
   dat <- parse_github_remotes(urls)
   dat <- dat[dat$host == "github.com", ]
-  purrr::some(dat$repo_owner, ~ .x %in% posit_orgs())
+  purrr::some(dat$repo_owner, \(x) x %in% posit_orgs())
 }
 
 posit_orgs <- function() {

R/utils-git.R

@@ -4,7 +4,7 @@ gert_shush <- function(expr, regexp) {
   check_character(regexp)
   withCallingHandlers(
     gertMessage = function(cnd) {
-      m <- map_lgl(regexp, ~ grepl(.x, cnd_message(cnd), perl = TRUE))
+      m <- map_lgl(regexp, \(x) grepl(x, cnd_message(cnd), perl = TRUE))
       if (any(m)) {
         cnd_muffle(cnd)
       }

R/utils-github.R

@@ -205,7 +205,7 @@ github_remotes <- function(
   # NOTE: these can be two separate matters:
   # 1. Did we call the GitHub API? Means we know `is_fork` and the parent repo.
   # 2. If so, did we call it with auth? Means we know if we can push.
-  grl$github_got <- map_lgl(repo_info, ~ length(.x) > 0)
+  grl$github_got <- map_lgl(repo_info, \(x) length(x) > 0)
   if (isTRUE(github_get) && !all(grl$github_got)) {
     oops <- which(!grl$github_got)
     oops_remotes <- grl$remote[oops]
@@ -235,7 +235,7 @@ github_remotes <- function(
   parent_info <- purrr::pmap(
     set_names(
       grl[c("parent_repo_owner", "parent_repo_name", "api_url")],
-      ~ sub("parent_", "", .x)
+      \(x) sub("parent_", "", x)
     ),
     get_gh_repo
   )
@@ -325,7 +325,7 @@ new_github_remote_config <- function() {
     )
   )
   # 0-row df --> a well-named list of properly typed NAs
-  ptype <- map(ptype, ~ c(NA, .x))
+  ptype <- map(ptype, \(x) c(NA, x))
   structure(
     list(
       type = NA_character_,

R/vscode.R

@@ -5,7 +5,7 @@ use_vscode_debug <- function(open = rlang::is_interactive()) {
   deps <- proj_deps()
   lt_pkgs <- deps$package[deps$type == "LinkingTo"]
   possibly_path_package <- purrr::possibly(path_package, otherwise = NA)
-  lt_paths <- map_chr(lt_pkgs, ~ possibly_path_package(.x, "include"))
+  lt_paths <- map_chr(lt_pkgs, \(x) possibly_path_package(x, "include"))
   lt_paths <- purrr::discard(lt_paths, is.na)
   # this is a bit fiddly, but it produces the desired JSON when lt_paths has
   # length 0 or > 0