globalVariables(c(".OUTPUTFOLDER_SLIDES", ".TEMPLATEFILE_SLIDES"))
.onLoad <- function(libname, pkgname) {
# Check for available options (some of the might have been set in Rprofile)
op <- options()
# Default options for IQSlides
op.IQSlides <- list(
IQSlide.markdown = c(bold = "**", italic = "*", code = "`", subscript = "~", superscript = "^"),
IQSlide.template = "IQNew",
IQSlide.ratio = "16:9",
IQSlide.outputfolder = "../Output/Slides"
)
# Set missing options to default values
toset <- !(names(op.IQSlides) %in% names(op))
if (any(toset)) options(op.IQSlides[toset])
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.