tests/tinytest.R

In KlausVigo/kknn: Weighted k-Nearest Neighbors

if (require("tinytest", quietly=TRUE)){
    set.seed(42)
    home <- length(unclass(packageVersion("kknn"))[[1]]) == 4 # 0.0.0.9000
    if(home) {
        # Only run locally, let CRAN test examples and the vignette
        test_package("kknn", at_home = home)
    }
}