Nothing
context("Registration repositories")
test_that("make_reg_url behaves", {
expect_equal(make_reg_url("jefferislab/BridgingRegistrations"),
"https://github.com/jefferislab/BridgingRegistrations")
abc=c("a/b", "a/c")
expect_equal(make_reg_url(abc), paste0("https://github.com/", abc))
})
test_that("add works",{
dir.create(regroot<-tempfile())
on.exit(unlink(regroot, recursive = TRUE))
op=options(nat.templatebrains.regdirs='testing')
on.exit(options(op), add = TRUE)
add_reg_folders(regroot)
rop=getOption('nat.templatebrains.regdirs')
expect_equal(length(rop), 2L)
expect_equal(rop[2], "testing")
add_reg_folders(regroot)
expect_equal(getOption('nat.templatebrains.regdirs'), rop)
options(nat.templatebrains.regdirs='testing')
add_reg_folders(regroot, first = FALSE)
expect_equal(getOption('nat.templatebrains.regdirs'), rev(rop))
expect_null(add_reg_folders(character(0)))
})
test_that("add multiple works",{
dir.create(regroot<-tempfile())
on.exit(unlink(regroot, recursive = TRUE))
op=options(nat.templatebrains.regdirs=NULL)
on.exit(options(op), add = TRUE)
tfs=replicate(3, tempfile(tmpdir = regroot))
sapply(tfs, dir.create)
add_reg_folders(tfs)
# note that we just take the basename because the path gets normalised into
# canonical form inside add_reg_folders
expect_equal(basename(getOption('nat.templatebrains.regdirs')), basename(tfs))
})
test_that("cloning registrations works", {
skip_on_cran()
skip_if_not_installed('git2r')
op=options(nat.templatebrains.regdirs=NULL)
on.exit(options(op), add = TRUE)
# remove it in case it was already there!
unlink(local_reg_dir_for_url('https://github.com/jefferislab/TestRegRepo'), recursive = TRUE)
download_reg_repo("jefferislab/TestRegRepo")
expect_equal(getOption('nat.templatebrains.regdirs'),
local_reg_dir_for_url('https://github.com/jefferislab/TestRegRepo'))
expect_true(update_result<-update_reg_repos()$up_to_date)
unlink(local_reg_dir_for_url('https://github.com/jefferislab/TestRegRepo'), recursive = TRUE)
})
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.