.Renviron

R_COMPLETION=FALSE
R_LIBS=~/R
TMPDIR=/tmp

_R_CHECK_FORCE_SUGGESTS_=false

GITHUB_PAT=[redacted]
DO_PAT=[redacted]

.Rprofile

.First <- function() {
  library(grDevices)
  options(
    repos = c(CRAN = "http://cran.rstudio.com"),
    keep.source = TRUE,
    keep.source.pkgs = TRUE,
    browserNLdisabled = TRUE,
    deparse.max.lines = 2,
    devtools.install.args = "--no-multiarch",
    devtools.name = "Hadley",
    devtools.desc.name = "Hadley",
    devtools.desc.author = "'Hadley Wickham <[email protected]> [aut,cre]'",
    devtools.desc.license = "GPL-3",
    devtools.revdep.libpath = "~/R-revdep",
    device = "quartz")
}

if (interactive()) {
  suppressMessages(require(devtools))
  suppressMessages(require(testthat))
  .Last <- function() try(savehistory("~/.Rhistory"))

  .fr <- function() {
    tryCatch(shiny:::flushReact(), error = function(err) .fr())
    invisible()
  }
}