Nothing
# Copyright (c) Facebook, Inc. and its affiliates.
# This source code is licensed under the MIT license found in the
# LICENSE file in the root directory of this source tree.
.onLoad <- function(libname, pkgname) {
# Create environment for storing stan model
assign("prophet_model_env", new.env(), parent.env(environment()))
tryCatch({
if (.Platform$OS.type == "windows") {
dest <- file.path('libs', .Platform$r_arch)
} else {
dest <- 'libs'
}
binary <- system.file(
dest,
'prophet_stan_model.RData',
package = 'prophet',
mustWork = TRUE
)
load(binary)
obj.name <- 'model.stanm'
stanm <- eval(parse(text = obj.name))
## Should cause an error if the model doesn't work.
stanm@mk_cppmodule(stanm)
assign(
".prophet.stan.model",
stanm,
envir=prophet_model_env
)
},
error = function(cond) {}
)
}
# IMPORTS ----
# StanHeaders - Used to prevent issues with Prophet dynload error
#' @import StanHeaders
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.