## Experiment tibbles
#' @importFrom tibble tibble
experiment.subsets <- tibble(ID = integer(), Name = character(), Subset = list())
experiment.results <- tibble(ID = integer(), Name = character(), Type = character(), Result = list())
experiment.plots <- tibble(ID = integer(), Name = character(), Plot = list())
experimentTibblesEnv <- new.env()
assign("experiment.subsets",experiment.subsets, envir=experimentTibblesEnv)
assign("experiment.results", experiment.results, envir=experimentTibblesEnv)
assign("experiment.plots", experiment.plots, envir=experimentTibblesEnv)
rm(experiment.subsets, experiment.results, experiment.plots)
# Make Times New Roman font usable
if (Sys.info()["sysname"] == "Windows") {
#' @export RMN
RMN <- "RMN"
} else {
#' @export RMN
RMN <- "Times New Roman"
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.