#' Is the index a non-first in a series of clock models that are shared?
#' @inheritParams default_params_doc
#' @param i the index of the clock model within \code{clock_models}
#' @author Richel J.C. Bilderbeek
#' @noRd
is_index_of_non_first_shared_clock_model <- function( # nolint internal function
i,
clock_models
) {
testit::assert(i >= 1)
testit::assert(i <= length(clock_models))
testit::assert(are_clock_models(clock_models)) # nolint internal function
if (length(clock_models) <= 1) return(FALSE)
ids <- get_clock_models_ids(clock_models) # nolint internal function
id <- clock_models[[i]]$id
ids <- ids[1:i - 1]
id %in% ids
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.