|
| 1 | +#' Install an R version |
| 2 | +#' |
| 3 | +#' Downloads and installs a specific R version to \code{~/.uvr/r-versions/}. |
| 4 | +#' Equivalent to \code{uvr r install <version>} on the command line. |
| 5 | +#' |
| 6 | +#' @param version R version string, e.g. \code{"4.4.2"}. |
| 7 | +#' @param quiet If \code{TRUE}, suppress output. |
| 8 | +#' @return Invisible \code{TRUE} on success. |
| 9 | +#' @export |
| 10 | +r_install <- function(version, quiet = FALSE) { |
| 11 | + run_uvr(c("r", "install", version), quiet = quiet) |
| 12 | +} |
| 13 | + |
| 14 | +#' List R versions |
| 15 | +#' |
| 16 | +#' Shows installed R versions. Use \code{all = TRUE} to show all available |
| 17 | +#' versions from CRAN. |
| 18 | +#' Equivalent to \code{uvr r list} on the command line. |
| 19 | +#' |
| 20 | +#' @param all If \code{TRUE}, show all available versions (not just installed). |
| 21 | +#' @param quiet If \code{TRUE}, suppress output. |
| 22 | +#' @return Invisible \code{TRUE} on success. |
| 23 | +#' @export |
| 24 | +r_list <- function(all = FALSE, quiet = FALSE) { |
| 25 | + args <- c("r", "list") |
| 26 | + if (isTRUE(all)) args <- c(args, "--all") |
| 27 | + run_uvr(args, quiet = quiet) |
| 28 | +} |
| 29 | + |
| 30 | +#' Set the R version constraint |
| 31 | +#' |
| 32 | +#' Sets the R version constraint in \code{uvr.toml}. |
| 33 | +#' Equivalent to \code{uvr r use <version>} on the command line. |
| 34 | +#' |
| 35 | +#' @param version Version constraint, e.g. \code{">=4.3.0"} or \code{"4.4.2"}. |
| 36 | +#' @param dir Optional working directory. Defaults to \code{getwd()}. |
| 37 | +#' @param quiet If \code{TRUE}, suppress output. |
| 38 | +#' @return Invisible \code{TRUE} on success. |
| 39 | +#' @export |
| 40 | +r_use <- function(version, dir = NULL, quiet = FALSE) { |
| 41 | + run_uvr(c("r", "use", version), dir = dir, quiet = quiet) |
| 42 | +} |
| 43 | + |
| 44 | +#' Pin the R version |
| 45 | +#' |
| 46 | +#' Writes an exact R version to the \code{.r-version} file. |
| 47 | +#' Equivalent to \code{uvr r pin <version>} on the command line. |
| 48 | +#' |
| 49 | +#' @param version Exact R version, e.g. \code{"4.4.2"}. |
| 50 | +#' @param dir Optional working directory. Defaults to \code{getwd()}. |
| 51 | +#' @param quiet If \code{TRUE}, suppress output. |
| 52 | +#' @return Invisible \code{TRUE} on success. |
| 53 | +#' @export |
| 54 | +r_pin <- function(version, dir = NULL, quiet = FALSE) { |
| 55 | + run_uvr(c("r", "pin", version), dir = dir, quiet = quiet) |
| 56 | +} |
0 commit comments