tests/manualTests/manualTests.R

# Tests to be run by hand

# takes about 30 min
allsdy <- CreateConnection("")

try_gei <- function(con) {
  tryCatch(
    con$getGEInputs(),
    warning = function(w) {
      return(w)
    },
    error = function(e) {
      return(e)
    }
  )
}

test_that("returns error if run at project level", {
  res <- try_gei(allsdy)
  expect_true("project" %in% strsplit(res$message, split = " ")[[1]])
})

# Run on server to be local
allsdy$.__enclos_env__$private$.test_files()

Try the ImmuneSpaceR package in your browser

Any scripts or data that you put into this service are public.

ImmuneSpaceR documentation built on Dec. 21, 2020, 2:01 a.m.