# 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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.