R/zstexplorer-package.R

In chriszheng2016/zstexplorer: Explorer for China Stock Market Investment

#' @keywords internal
"_PACKAGE"

# Import frequently-used functions from other packages
#' @importFrom stats mad median sd cor na.omit
#' @importFrom utils head
#' @importFrom graphics par
#' @importFrom rlang .data

## Quiets notes of R CMD check for pipelines codes
if (getRversion() >= "2.15.1") {
  utils::globalVariables(
    c("where", ".", ":=")
  )
}


# The following block is used by usethis to automatically manage
# roxygen namespace tags. Modify with care!
## usethis namespace: start
## usethis namespace: end
NULL

# Global vars of pkg
.pkg_globals <- rlang::new_environment(
  list(
    stock_db = NULL
  )
)

.onAttach <- function(libname, pkgname) {
  packageStartupMessage("Welcome to zstexplorer by Chris Zheng")
}

.onLoad <- function(libname, pkgname) {

}

.onUnload <- function(libpath) {
  # Close stock db
  if(!is.null(.pkg_globals$stock_db)){
    zstmodelr::close_stock_db(.pkg_globals$stock_db)
  }
}