# Load-Libraries

## Vignette Build Datetime

    message(paste0('Datetime: ',Sys.Date(),':',Sys.time()))
    #> Datetime: 2026-01-21:2026-01-21 09:14:41

## Load Libraries

    library(repfun)
    library(devtools)

## Create a vector of packages to load.

    lbs <- c("janitor", "gmodels", "epiR", "DescTools", "coin", "irr", "Exact", "stats")
    lbs <- c('stats','devtools')

## Unload all packages in the list above.

    trashbin <- lapply(lbs,
                       function(x) if (x %in% .packages()) {detach(paste0('package:',x), character.only=TRUE)})

## Reload all packages in the list above.

    suppressMessages(repfun::ru_load_library(lbs))

## Confirm all packages in the list above are loaded.

    loaded <- lapply(lbs,function(x) x %in% loadedNamespaces())
    names(loaded) <- lbs
    knitr::kable(stack(loaded)[,c(2,1)], caption = "Is Package Loaded (T/F)?")

Is Package Loaded (T/F)?
ind | values
--- | ---
stats | TRUE
devtools | TRUE