tests/testthat/test_unload.R

context("Unloading")

dyn_lib_names <- function() {
  sapply(.dynLibs(), `[[`, "name")
}

expect_true("rnndescent" %in% dyn_lib_names())
unloadNamespace("rnndescent")
expect_false("rnndescent" %in% dyn_lib_names())
jlmelville/rnndescent documentation built on July 29, 2024, 9:31 p.m.