tools/pkgdown/assets/install.R

In r-lib/pkg: Another Approach to Package Installation

(function() {
  trace <- rev(sys.calls())
  source_arg <- NULL
  for (call in trace) {
    if (call[[1]] == quote(source) && is.character(call[[2]])) {
      source_arg <- call[[2]]
      break
    }
  }

  stream <- "stable"
  if (!is.null(source_arg) && grepl("\\?stream=[a-z]+$", source_arg)) {
    stream <- sub("^.*\\?stream=", "", source_arg)
  }

  message("Installing pak from stream ", stream, ".")

  install.packages("pak", repos = sprintf(
    "https://r-lib.github.io/p/pak/%s/%s/%s/%s",
    stream,
    .Platform$pkgType,
    R.Version()$os,
    R.Version()$arch
  ))
})()