.helper_functions

covr_shiny_app:
  cov <- covr::package_coverage()
  covr::shine(cov)
covr_zero_coverage:
  zero <- function(...) {
    # check out the link below to work most efficiently
    # https://codecov.io/github/ggobi/ggally/features/suggestions?ref=dev
    cov <- covr::package_coverage(...)
    covr::zero_coverage(cov)
  }
  zero()
lintr_package:
  # remove line in "linters:" above
  devtools::lint()
  # fix errors,
  # repeat until no errors
lintr_code_to_create_lintr:
  library(magrittr)
  library(dplyr)
  lintr::lint_package() %>%
    as.data.frame %>%
    group_by(linter) %>%
    tally(sort = TRUE) %$%
    sprintf("linters: with_defaults(\n    %s\n    NULL\n  )\n",
            paste0(linter, " = NULL, # ", n, collapse="\n    ")) %>%
    cat()
test_package:
  tp <- function(package = "./", ...) {
    devtools::document(package)
    devtools::test(package, ...)
  }
  tp()
test_file:
  tf <- function(file = "gg-plots", package = "./", spacer = "-") {
    devtools::load_all(package)
    testthat::test_file(file.path(package, "tests", "testthat", paste0("test", spacer, file, ".R")))
  }
  tf("zzz_ggpairs")
knit_vignettes:
  devtools::document(); packagedocs::build_vignettes()
build_win:
  devtools::build_win(version = c("R-release", "R-devel"))
reverse_depends:
  # revdepcheck::revdep_reset()
  revdepcheck::revdep_check(num_workers = 4, timeout = as.difftime(30, units = "mins"), quiet = FALSE)
reverse_depends_email:
  devtools:::revdep_email(date = "Nov 4th alongside ggplot2's release", version = "1.3.0", author = "Barret", draft = TRUE, only_problems = FALSE)