R/onLoad.R

In MichaelChirico/vw: R interface with John Langford's Vowpal Wabbit

# for setting options & assigning any packing internal variables

.onLoad <- function(libname, pkgname) {
  if (system('which vw', ignore.stdout = TRUE)) {
    warning(paste('vw command line utility not found -- train/test',
                  'functionality will not work. I/O tools still available.'))
  }
  # opts = list("texr.labelcount" = 0L,
  #             "texr.params" = object_to_text(.global$default_params),
  #             "texr.warn.rotating" = TRUE,
  #             "texr.warn.rotating.toggle" = TRUE)
  # for (ii in names(opts)) {
  #   eval(parse(text = paste0("options(", ii, "=", opts[[ii]], ")")))
  # }
  # 
  # #have to declare these AFTER the above runs,
  # #  but also can't declare .global from within
  # #  the scope of this function
  # .global$label_count <- getOption("texr.labelcount")
  # .global$warn_rotate <- getOption("texr.warn.rotating")
}