Skip to content

Commit

Permalink
Update 15 packages (#49)
Browse files Browse the repository at this point in the history
Co-authored-by: milanmlft <[email protected]>
  • Loading branch information
milanmlft and milanmlft authored Oct 1, 2024
1 parent 69fd1c5 commit 337cc15
Show file tree
Hide file tree
Showing 2 changed files with 126 additions and 37 deletions.
105 changes: 96 additions & 9 deletions renv/activate.R
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
local({

# the requested version of renv
version <- "1.0.7"
version <- "1.0.9"
attr(version, "sha") <- NULL

# the project directory
Expand Down Expand Up @@ -98,6 +98,66 @@ local({
unloadNamespace("renv")

# load bootstrap tools
ansify <- function(text) {
if (renv_ansify_enabled())
renv_ansify_enhanced(text)
else
renv_ansify_default(text)
}

renv_ansify_enabled <- function() {

override <- Sys.getenv("RENV_ANSIFY_ENABLED", unset = NA)
if (!is.na(override))
return(as.logical(override))

pane <- Sys.getenv("RSTUDIO_CHILD_PROCESS_PANE", unset = NA)
if (identical(pane, "build"))
return(FALSE)

testthat <- Sys.getenv("TESTTHAT", unset = "false")
if (tolower(testthat) %in% "true")
return(FALSE)

iderun <- Sys.getenv("R_CLI_HAS_HYPERLINK_IDE_RUN", unset = "false")
if (tolower(iderun) %in% "false")
return(FALSE)

TRUE

}

renv_ansify_default <- function(text) {
text
}

renv_ansify_enhanced <- function(text) {

# R help links
pattern <- "`\\?(renv::(?:[^`])+)`"
replacement <- "`\033]8;;ide:help:\\1\a?\\1\033]8;;\a`"
text <- gsub(pattern, replacement, text, perl = TRUE)

# runnable code
pattern <- "`(renv::(?:[^`])+)`"
replacement <- "`\033]8;;ide:run:\\1\a\\1\033]8;;\a`"
text <- gsub(pattern, replacement, text, perl = TRUE)

# return ansified text
text

}

renv_ansify_init <- function() {

envir <- renv_envir_self()
if (renv_ansify_enabled())
assign("ansify", renv_ansify_enhanced, envir = envir)
else
assign("ansify", renv_ansify_default, envir = envir)

}

`%||%` <- function(x, y) {
if (is.null(x)) y else x
}
Expand Down Expand Up @@ -142,7 +202,10 @@ local({
# compute common indent
indent <- regexpr("[^[:space:]]", lines)
common <- min(setdiff(indent, -1L)) - leave
paste(substring(lines, common), collapse = "\n")
text <- paste(substring(lines, common), collapse = "\n")

# substitute in ANSI links for executable renv code
ansify(text)

}

Expand Down Expand Up @@ -306,7 +369,11 @@ local({
)

if ("headers" %in% names(formals(utils::download.file)))
args$headers <- renv_bootstrap_download_custom_headers(url)
{
headers <- renv_bootstrap_download_custom_headers(url)
if (length(headers) && is.character(headers))
args$headers <- headers
}

do.call(utils::download.file, args)

Expand Down Expand Up @@ -385,10 +452,22 @@ local({
for (type in types) {
for (repos in renv_bootstrap_repos()) {

# build arguments for utils::available.packages() call
args <- list(type = type, repos = repos)

# add custom headers if available -- note that
# utils::available.packages() will pass this to download.file()
if ("headers" %in% names(formals(utils::download.file)))
{
headers <- renv_bootstrap_download_custom_headers(url)
if (length(headers) && is.character(headers))
args$headers <- headers
}

# retrieve package database
db <- tryCatch(
as.data.frame(
utils::available.packages(type = type, repos = repos),
do.call(utils::available.packages, args),
stringsAsFactors = FALSE
),
error = identity
Expand Down Expand Up @@ -470,23 +549,31 @@ local({

}

renv_bootstrap_github_token <- function() {
for (envvar in c("GITHUB_TOKEN", "GITHUB_PAT", "GH_TOKEN")) {
envval <- Sys.getenv(envvar, unset = NA)
if (!is.na(envval))
return(envval)
}
}

renv_bootstrap_download_github <- function(version) {

enabled <- Sys.getenv("RENV_BOOTSTRAP_FROM_GITHUB", unset = "TRUE")
if (!identical(enabled, "TRUE"))
return(FALSE)

# prepare download options
pat <- Sys.getenv("GITHUB_PAT")
if (nzchar(Sys.which("curl")) && nzchar(pat)) {
token <- renv_bootstrap_github_token()
if (nzchar(Sys.which("curl")) && nzchar(token)) {
fmt <- "--location --fail --header \"Authorization: token %s\""
extra <- sprintf(fmt, pat)
extra <- sprintf(fmt, token)
saved <- options("download.file.method", "download.file.extra")
options(download.file.method = "curl", download.file.extra = extra)
on.exit(do.call(base::options, saved), add = TRUE)
} else if (nzchar(Sys.which("wget")) && nzchar(pat)) {
} else if (nzchar(Sys.which("wget")) && nzchar(token)) {
fmt <- "--header=\"Authorization: token %s\""
extra <- sprintf(fmt, pat)
extra <- sprintf(fmt, token)
saved <- options("download.file.method", "download.file.extra")
options(download.file.method = "wget", download.file.extra = extra)
on.exit(do.call(base::options, saved), add = TRUE)
Expand Down
58 changes: 30 additions & 28 deletions renv/profiles/lesson-requirements/renv.lock
Original file line number Diff line number Diff line change
Expand Up @@ -140,17 +140,17 @@
},
"bit": {
"Package": "bit",
"Version": "4.0.5",
"Version": "4.5.0",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"R"
],
"Hash": "d242abec29412ce988848d0294b208fd"
"Hash": "5dc7b2677d65d0e874fc4aaf0e879987"
},
"bit64": {
"Package": "bit64",
"Version": "4.0.5",
"Version": "4.5.2",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
Expand All @@ -160,7 +160,7 @@
"stats",
"utils"
],
"Hash": "9fe98599ca456d6552421db0d6772d8f"
"Hash": "e84984bf5f12a18628d9a02322128dfd"
},
"blob": {
"Package": "blob",
Expand All @@ -176,7 +176,7 @@
},
"broom": {
"Package": "broom",
"Version": "1.0.6",
"Version": "1.0.7",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
Expand All @@ -192,7 +192,7 @@
"tibble",
"tidyr"
],
"Hash": "a4652c36d1f8abfc3ddf4774f768c934"
"Hash": "8fcc818f3b9887aebaf206f141437cc9"
},
"bslib": {
"Package": "bslib",
Expand Down Expand Up @@ -324,13 +324,13 @@
},
"curl": {
"Package": "curl",
"Version": "5.2.2",
"Version": "5.2.3",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"R"
],
"Hash": "8f27335f2bcff4d6035edcc82d7d46de"
"Hash": "d91263322a58af798f6cf3b13fd56dde"
},
"data.table": {
"Package": "data.table",
Expand Down Expand Up @@ -426,14 +426,13 @@
},
"evaluate": {
"Package": "evaluate",
"Version": "0.24.0",
"Version": "1.0.0",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"R",
"methods"
"R"
],
"Hash": "a1066cbc05caee9a4bf6d90f194ff4da"
"Hash": "6b567375113ceb7d9f800de4dd42218e"
},
"fansi": {
"Package": "fansi",
Expand Down Expand Up @@ -571,14 +570,14 @@
},
"glue": {
"Package": "glue",
"Version": "1.7.0",
"Version": "1.8.0",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"R",
"methods"
],
"Hash": "e0b3a53876554bd45879e596cdb10a52"
"Hash": "5899f1eaa825580172bb56c08266f37c"
},
"googledrive": {
"Package": "googledrive",
Expand Down Expand Up @@ -797,13 +796,13 @@
},
"jsonlite": {
"Package": "jsonlite",
"Version": "1.8.8",
"Version": "1.8.9",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"methods"
],
"Hash": "e1b9c55281c5adc4dd113652d9e26768"
"Hash": "4e993b65c2c3ffbffce7bb3e2c6f832b"
},
"knitr": {
"Package": "knitr",
Expand Down Expand Up @@ -954,7 +953,7 @@
"Package": "nlme",
"Version": "3.1-166",
"Source": "Repository",
"Repository": "CRAN",
"Repository": "RSPM",
"Requirements": [
"R",
"graphics",
Expand All @@ -966,13 +965,13 @@
},
"openssl": {
"Package": "openssl",
"Version": "2.2.1",
"Version": "2.2.2",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"askpass"
],
"Hash": "c62edf62de70cadf40553e10c739049d"
"Hash": "d413e0fef796c9401a4419485f709ca1"
},
"pillar": {
"Package": "pillar",
Expand Down Expand Up @@ -1040,14 +1039,14 @@
},
"ps": {
"Package": "ps",
"Version": "1.7.7",
"Version": "1.8.0",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"R",
"utils"
],
"Hash": "878b467580097e9c383acbb16adab57a"
"Hash": "4b9c8485b0c7eecdf0a9ba5132a45576"
},
"purrr": {
"Package": "purrr",
Expand All @@ -1066,14 +1065,17 @@
},
"ragg": {
"Package": "ragg",
"Version": "1.3.2",
"Version": "1.3.3",
"Source": "Repository",
"Repository": "RSPM",
"Repository": "https://carpentries.r-universe.dev",
"RemoteUrl": "https://github.com/r-lib/ragg",
"RemoteRef": "v1.3.3",
"RemoteSha": "6f2279ae8cd0e0d7e9d0e1ede2b742666f9f1d49",
"Requirements": [
"systemfonts",
"textshaping"
],
"Hash": "e3087db406e079a8a2fd87f413918ed3"
"Hash": "0595fe5e47357111f29ad19101c7d271"
},
"rappdirs": {
"Package": "rappdirs",
Expand Down Expand Up @@ -1142,13 +1144,13 @@
},
"renv": {
"Package": "renv",
"Version": "1.0.7",
"Version": "1.0.9",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"utils"
],
"Hash": "397b7b2a265bc5a7a06852524dabae20"
"Hash": "ef233f0e9064fc88c898b340c9add5c2"
},
"reprex": {
"Package": "reprex",
Expand Down Expand Up @@ -1452,13 +1454,13 @@
},
"tinytex": {
"Package": "tinytex",
"Version": "0.52",
"Version": "0.53",
"Source": "Repository",
"Repository": "CRAN",
"Requirements": [
"xfun"
],
"Hash": "cfbad971a71f0e27cec22e544a08bc3b"
"Hash": "9db859e8aabbb474293dde3097839420"
},
"tzdb": {
"Package": "tzdb",
Expand Down

0 comments on commit 337cc15

Please sign in to comment.