Nothing
proj_name <- "test_nmproject"
proj_path <- file.path(tempdir(), proj_name)
test_that("Project has basic functionality", {
skip_if_not(rmarkdown::pandoc_available("1.12.3"))
currentwd <- getwd()
with_temp_git_config(nm_create_analysis_project(proj_path))
on.exit({
setwd(currentwd)
unlink(proj_path, recursive = TRUE, force = TRUE)
})
setwd(proj_path)
## unset options
named_list <- lapply(getOption("nm.options"), function(x) NULL)
names(named_list) <- getOption("nm.options")
options(named_list)
expect_true(is.null(getOption("code_library_path")))
expect_error(code_library(viewer = FALSE, return_info = TRUE))
NMproject:::set_nm_opts()
expect_true(!is.null(getOption("code_library_path")))
d <- code_library(viewer = FALSE, return_info = TRUE)
expect_true(nrow(d) > 10)
cmd_test <- system_nm("echo test", intern = TRUE)
# expect_true(identical(cmd_test, "test"))
options(code_library_path = c(system.file("extdata/CodeLibrary", package = "NMproject")))
expect_true(length(getOption("code_library_path")) > 0)
setup_nm_demo()
expect_true(file.exists("SourceData/THEOPP.csv"))
})
test_that("set up", {
skip_if_not(rmarkdown::pandoc_available("1.12.3"))
currentwd <- getwd()
with_temp_git_config(nm_create_analysis_project(proj_path))
on.exit({
setwd(currentwd)
unlink(proj_path, recursive = TRUE, force = TRUE)
})
setwd(proj_path)
NMproject:::set_nm_opts()
tmp <- system_nm("echo test", intern = TRUE, wait = TRUE)
expect_true(length(tmp) > 0 & "character" %in% class(tmp))
old.opt <- getOption("nmtran_exe_path")
options(nmtran_exe_path = NULL)
expect_error(nm_tran("run1.mod"))
options(nmtran_exe_path = old.opt)
expect_error(nm("execute run1.mod -dir=m1"))
ls_code_library("Models/ADVAN2.mod") %>%
stage()
expect_true(file.exists("staging/Models/ADVAN2.mod"))
TVK_files <- ls_code_library() %>%
search_raw("TVK")
expect_true(length(TVK_files) > 0)
## wait test
starting_time <- Sys.time()
stime <- system.time(wait_for({
difftime(Sys.time(), starting_time, units = "secs") > 1
}))
## Decision: Remove this test
## The following test is removed because it depends on
## uncontolled external environment.
## can't use user or system time as they are close to 0.
#expect_true(stime["elapsed"] >= 0.9 & stime["elapsed"] < 3)
})
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.