Nothing
if (interactive()) pkgload::load_all(".")
test_add_commit <- function() {
path <- tempfile()
dir.create(path)
gert::git_init(path = path)
writeLines("hello, world!", file.path(path, "f"))
expectation <- structure(list(file = "f", status = "new", staged = FALSE),
row.names = c(NA, -1L),
class = c("tbl_df", "tbl", "data.frame"))
result <- gert::git_status(repo = path)
RUnit::checkIdentical(expectation, result)
RUnit::checkException(git_add_commit(path = path))
git_add_commit(path = path, untracked = TRUE)
expectation <- structure(list(file = character(0), status = character(0),
staged = logical(0)), row.names = integer(0),
class = c("tbl_df", "tbl", "data.frame"))
result <- gert::git_status(repo = path)
RUnit::checkIdentical(expectation, result)
}
notest_cyclocomp <- function() {
# somehow fails on install...
path <- file.path(tempdir(), "prutp")
on.exit(unlink(path, recursive = TRUE))
packager::create(path)
result <- packager::check_cyclomatic_complexity(path)
# news too new
news_file <- file.path(path, "NEWS.md")
writeLines(c("# prutp 0.1.1", new), news_file)
RUnit::checkTrue(packager::check_news(path))
RUnit::checkTrue(result)
pccc <- packager::check_cyclomatic_complexity
RUnit::checkException(pccc(path, max_complexity = 0))
}
test_news <- function() {
path <- file.path(tempdir(), "prutp")
if (interactive()) {
tempdir <- tempfile()
dir.create(tempdir)
wd <- setwd(tempdir)
pkgload::load_all("~/packager")
}
unlink(path, recursive = TRUE)
on.exit(unlink(path, recursive = TRUE))
packager::create(path, fakemake = FALSE)
if (interactive()) traceback()
result <- packager::check_news(path)
RUnit::checkTrue(result)
# usethis auto-updates NEWS
packager::use_dev_version(path)
RUnit::checkTrue(packager::check_news(path))
# Bump version
desc::desc_bump_version(path, which = "minor")
# add machting version, keep devel version
news_file <- file.path(path, "NEWS.md")
old <- readLines(news_file)
new <- "# prutp 0.2.0"
writeLines(c(new, old), news_file)
RUnit::checkException(packager::check_news(path))
# remove devel version
writeLines(new, news_file)
RUnit::checkTrue(packager::check_news(path))
# actual version not covered in NEWS.md
writeLines(c("# prutp 0.2.1"), news_file)
RUnit::checkException(packager::check_news(path))
if (interactive()) {
unlink(path, recursive = TRUE)
setwd(wd)
}
}
test_githuburl <- function() {
path <- file.path(tempdir(), "prutp")
on.exit(unlink(path, recursive = TRUE))
unlink(path, recursive = TRUE)
packager:::package_skeleton(path)
user <- "foobar"
#% gh_username defaults NULL, curl not working
if (Sys.info()[["nodename"]] == "fvafrdebianCU") {
# curl not working
expectation <- FALSE
result <- add_github_url_to_desc(path = path)
RUnit::checkIdentical(expectation, result)
}
#% No git remote set
expectation <- FALSE
result <- add_github_url_to_desc(path = path, default_gh_user = NA)
RUnit::checkIdentical(expectation, result)
#% remote set
if (Sys.info()[["nodename"]] %in% c("h5", "h6")) {
# whoami is better than remote url
url <- "https://github.com/fvafrCU/prutp"
} else {
url <- paste("https://github.com", user, "prutp", sep = "/")
}
unlink(path, recursive = TRUE)
packager:::package_skeleton(path)
gert::git_init(path = path)
gert::git_remote_add(repo = path, name = "github",
url = url)
result <- add_github_url_to_desc(path = path, default_gh_user = NA)
RUnit::checkTrue(result)
RUnit::checkIdentical(url, desc::desc_get_urls(path))
#% user given
if (Sys.info()[["nodename"]] %in% c("h5", "h6")) {
# doubled entry from above
expectation <- c("https://github.com/fvafrCU/prutp",
paste("https://github.com", user, "prutp", sep = "/"))
} else {
expectation <- paste("https://github.com", user, "prutp", sep = "/")
}
add_github_url_to_desc(path = path, default_gh_user = user)
result <- desc::desc_get_urls(file = path)
RUnit::checkIdentical(expectation, result)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.