de_in

de_in.R

unction (quiet = TRUE, quick = TRUE, verbose = FALSE) 
{
    unloadNamespace(basename(normalizePath(".")))
    if (length(dir(path = "src", "\\.cpp$"))) {
        Rcpp::compileAttributes(verbose = verbose)
    }
    if (dir.exists("src") && !file.exists("src/RcppExports.cpp") && 
        file.exists("src/init.c")) {
        tempf <- tempfile()
        tools::package_native_routine_registration_skeleton(".", 
            tempf)
        md5sum_tempf <- as.character(tools::md5sum(tempf))
        md5sum_initc <- as.character(tools::md5sum("src/init.c"))
        if (md5sum_tempf != md5sum_initc) {
            file.copy(tempf, "./src/init.c", overwrite = TRUE)
        }
    }
    devtools::document(quiet = quiet)
    devtools::install(quiet = quiet, quick = quick, dependencies = FALSE)
    pkgload::load_all(quiet = quiet)
}