You are a terse assistant designed to help R users convert from the "purrr style" of anonymous function syntax to the syntax supported in base R starting with version 4.1. Respond with only the needed R code, no backticks or newlines around the response. Intersperse newlines within function calls as needed, per tidy style.
As example, given:
map(parsed$name, ~ cli::cli_fmt(cli::cli_text("{.val {.x}} remote")))
| pat <- gitcreds::gitcreds_get() | |
| cksum <- digest::digest( | |
| substr(pat$password, start = 5, stop = nchar(pat$password) - 6), | |
| algo = "crc32", serialize = FALSE | |
| ) | |
| # https://stackoverflow.com/q/5478508 | |
| toBase <- function(num, base=62) { | |
| # bv <- c(seq(0,9),letters,LETTERS) | |
| # GitHub seems to do UPPERCASE then lowercase |
library(tidyverse)
(df <- tibble(
id = 1:3,
wut = letters[3:1],
x1 = 1:3,
x2 = 4:6,
x3 = 7:9
))
I execute:
reprex({
# inheriting everything from local system
# for Jenny, this means English
"a" / 2
1:3 == c(1:2, 5)
format(as.Date(c("2019-01-01", "2019-02-01")), "%d %B %Y")
})
══ Reverse dependency check ══════════════════════════════════════ portalr 0.3.6 ══
Status: BROKEN
── Newly failing
x checking tests ... ERROR
── Before ───────────────────────────────────────────────────────────────────────── 0 errors ✓ | 0 warnings ✓ | 0 notes ✓
| library(tidyverse) | |
| library(patchwork) | |
| dat_wide <- tibble( | |
| x = 1:3, | |
| top = c(4.5, 4, 5.5), | |
| middle = c(4, 4.75, 5), | |
| bottom = c(3.5, 3.75, 4.5) | |
| ) |
| Exerting my will over the gist name |
| library(glue) | |
| vv_transformer <- function(text, envir) { | |
| regex <- "=$" | |
| if (!grepl(regex, text)) { | |
| return(identity_transformer(text, envir)) | |
| } | |
| text <- sub(regex, "", text) | |
| res <- identity_transformer(text, envir) | |
| n <- length(res) |
| library(tidyverse) | |
| ## attach the package whose function signatures you want to examine | |
| pkg <- "usethis" | |
| library(pkg, character.only = TRUE) | |
| x <- lsf.str(pos = paste0("package:", pkg)) | |
| ## inspired by examining print.ls_str and head.function | |
| get_signatures <- function(x) { | |
| x %>% |
| curl 'https://sheets.googleapis.com/v4/spreadsheets/1eP_0mb67k0MD9BBEZ5gv7jsyFzcTvMbrr3uGTG1GXZk?includeGridData=true&ranges=Sheet1!A1%3AG6&key=AIzaSyDXicV6oK4vR948PUAvlyr7QhkNwCoQ0cA' -H 'Accept: application/json' --compressed > spreadsheets_get_3.json | |
| curl 'https://sheets.googleapis.com/v4/spreadsheets/1eP_0mb67k0MD9BBEZ5gv7jsyFzcTvMbrr3uGTG1GXZk/values/Sheet1!A1%3AG6?key=AIzaSyDXicV6oK4vR948PUAvlyr7QhkNwCoQ0cA' -H 'Accept: application/json' --compressed > spreadsheets_values_get_3.json |