R/helper.R

In gitdek/Roanda: R Interface to OANDA

###############################################################################
# Roanda: helper source
#   By puglisij Copyright (C) 2015, All rights reserved.
#
###############################################################################




#' Shortcut for global variable assignment with logging and optional ZMQ storage backend.
#'
#' @param x A variable name.
#' @param value value assigned to x.
#' @param environ the environment to use.
#'
#' @export
global.assign <- function(x, value, environ = .GlobalEnv) {
  assign(x,value,envir = environ)
  logging::logdebug(paste("Global assignment:",x,sep = ' '))

}


#' Attempt to load the package, and if unsuccessful try to install.
#'
#' @family helper functions
#' @param pkg Package name
#' @param quiet if TRUE suppresses output from this function.
#' @examples
#' package.require('quantmod')
#' @export
package.require <- function(pkg = ".", quiet = TRUE)
{
  if (!require(pkg,character.only = TRUE,quietly = quiet))
  {
    install.packages(pkg,dep = TRUE,quiet = quiet,verbose = quiet)
    if (!require(pkg,character.only = TRUE,quietly = quiet))
      stop("Package not found")
  }
}