.onLoad <- function (libname, pkgname)
{
data_dir <- file.path ("data", "data", "bikes")
data_dir <- paste0 (.Platform$file.sep, data_dir, .Platform$file.sep)
op <- options ()
op.distdecay <- list (data_dir = data_dir)
toset <- !(names (op.distdecay) %in% names (op))
if (any (toset))
options (op.distdecay [toset])
# make data set names global to avoid CHECK notes
utils::globalVariables ("distmats")
utils::globalVariables ("tripmats")
invisible ()
}
#' dd_get_data_dir
#'
#' Return the directory of pre-calculated distance matrices
#'
#' @export
dd_get_data_dir <- function ()
{
op <- options ()
if (!'data_dir' %in% names (op))
stop ('distdecay data dir be retrieved')
options ()$data_dir
}
#' dd_set_data_dir
#'
#' Set the directory of pre-calculated distance matrices
#'
#' @param dir Directory of pre-calculated distance matrices
#'
#' @export
dd_set_data_dir <- function (dir)
{
if (!is.character (dir))
stop ("Data directory must be a character string")
if (!file.exists (dir))
stop ("Data directory does not exist")
op <- options ()
op.distdecay <- list (data_dir = dir)
options (op.distdecay)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.