HenrikBengtsson

check_news <- function(pathname = c("NEWS", "NEWS.md")) {
  keep <- utils::file_test("-f", pathname)
  if (!any(keep)) {
    stop("No such file: ", paste(sQuote(pathname), collapse = ", "))
  }
  pathname <- pathname[keep]
  pathname <- pathname[1]

  if (basename(pathname) == "NEWS") {
    news <- tools:::.news_reader_default(pathname)

HenrikBengtsson

cran_days_since_release <- function(pkg, now = Sys.time()) {
  db <- rbind(tools:::CRAN_archive_db()[[pkg]], tools:::CRAN_current_db()[pkg,])
  now - sort(db$mtime, decreasing = TRUE)
}

# The CRAN rule is maximum 7 existing releases within the last 180 days
# https://github.com/wch/r-source/blob/tags/R-4-1-2/src/library/tools/R/QC.R#L7990-L8007
cran_wait_needed <- function(pkg, max = 7L, limit = 180, now = Sys.time()) {
  since <- cran_days_since_release(pkg, now = now)
  too_new <- since[since <= limit]

HenrikBengtsson

if (getRversion() >= "4.0.0" && requireNamespace("crayon", quietly = TRUE) && 
    utils::packageVersion("startup") >= "0.16.0-9001") {
  startup::on_session_start({
    globalCallingHandlers(
      message = function(c) {
        if (inherits(c, "tweaked_condition")) return()
        c$message <- cli::col_blue(conditionMessage(c))
        class(c) <- c("tweaked_condition", class(c))
        message(c)
        invokeRestart("muffleMessage")

HenrikBengtsson

read_nyt_vote_table <- function(state, force = FALSE) {
  library(rvest)  ## CRAN package 'rvest'
  states <- c(AZ = "arizona", GA = "georgia", NC = "north-carolina", NV = "nevada", PA = "pennsylvania")
  stopifnot(state %in% names(states))
  file <- sprintf("results-%s-president.html", states[state])
  url <- file.path("https://www.nytimes.com/interactive/2020/11/03/us/elections", file)
  if (force || !file_test("-f", file)) {
    message("Downloading: ", file)
    download.file(url, destfile = file, quiet = TRUE)
  }

HenrikBengtsson

library(rvest)  ## CRAN package 'rvest'

read_nyt_vote_table <- function(state, force = FALSE) {
  states <- c(AZ = "arizona", GA = "georgia", NC = "north-carolina", NV = "nevada", PA = "pennsylvania")
  stopifnot(state %in% names(states))
  file <- sprintf("results-%s-president.html", states[state])
  url <- file.path("https://www.nytimes.com/interactive/2020/11/03/us/elections", file)
  if (force || !file_test("-f", file)) {
    message("Downloading: ", file)
    download.file(url, destfile = file, quiet = TRUE)

HenrikBengtsson

#' Condition Handler Detecting Sprintf Mistakes
#'
#' @param w A condition
#'
#' @param action Should the sprintf mistake be escalated to an error,
#' or should it display the warning and prompt the user?
#'
#' @examples
#' globalCallingHandlers(warning = handle_sprintf_warning)
#'

HenrikBengtsson

name_of <- function(obj, private = FALSE) {
  env <- environment(obj)
  
  if (private) {
    env_name <- environmentName(env)
    names <- tryCatch({
      ns <- asNamespace(env_name)
      names(.getNamespaceInfo(ns, "exports"))
    }, error = function() names(env))
  } else {

HenrikBengtsson

HenrikBengtsson

library(ggplot2)
dd <- data.frame(x = rnorm(5e5), y = rnorm(5e5))
gg <- ggplot(dd, aes(x,y)) + geom_point()

## Render directively
t0 <- system.time(print(gg))
print(t0)
#   user  system elapsed 
#  7.013   0.046   7.094 

HenrikBengtsson

Example of using myscript

Below is an example showing how the exact same call can be done in a Unix shell as in a Windows shell. All that is required is that the myscript.R is in the same folder as myscript and myscript.bat. This makes it easier to document and easier to give examples.

Note, for it to work on Unix without having to specify ./myscript when calling it from the same directory, the current diectory has be part of the PATH, e.g. export PATH=".:$PATH". If myscript is placed in a folder that is already in the PATH, the below will work out of the box.