#' Generate internal data
#'
#' Generate internal data available to package functions.
#'
#' @return NULL
#' @noRd
generate_internal_data <- function() {
# Cross-reactive probes 450K
xreactive_probes_450k_chen <- read_xreactive_probes_450k_chen()
xreactive_probes_450k_benton <- read_xreactive_probes_450k_benton()
xreactive_probes_450k <-
unique(c(xreactive_probes_450k_chen, xreactive_probes_450k_benton))
# Cross-reactive probes EPIC/850K
xreactive_probes_epic_pidsley <- read_xreactive_probes_epic_pidsley()
xreactive_probes_epic_mccartney <- read_xreactive_probes_epic_mccartney()
xreactive_probes_epic <-
unique(c(
xreactive_probes_epic_pidsley,
xreactive_probes_epic_mccartney
))
devtools::use_data(xreactive_probes_450k,
xreactive_probes_epic,
internal = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.