## Not run:
# ## Example: RLum.Results ----
#
# # load example data
# data("ExampleData.DeValues")
#
# # apply the MAM-3 age model and save results
# mam <- calc_MinDose(ExampleData.DeValues$CA1, sigmab = 0.2)
#
# # create the HTML report
# report_RLum(object = mam, file = "~/CA1_MAM.Rmd",
# timestamp = FALSE,
# title = "MAM-3 for sample CA1")
#
# # when creating a report the input file is automatically saved to a
# # .Rds file (see saveRDS()).
# mam_report <- readRDS("~/CA1_MAM.Rds")
# all.equal(mam, mam_report)
#
#
# ## Example: Temporary file & Viewer/Browser ----
#
# # (a)
# # Specifying a filename is not necessarily required. If no filename is provided,
# # the report is rendered in a temporary file. If you use the RStudio IDE, the
# # temporary report is shown in the interactive Viewer pane.
# report_RLum(object = mam)
#
# # (b)
# # Additionally, you can view the HTML report in your system's default web browser.
# report_RLum(object = mam, launch.browser = TRUE)
#
#
# ## Example: RLum.Analysis ----
#
# data("ExampleData.RLum.Analysis")
#
# # create the HTML report (note that specifying a file
# # extension is not necessary)
# report_RLum(object = IRSAR.RF.Data, file = "~/IRSAR_RF")
#
#
# ## Example: RLum.Data.Curve ----
#
# data.curve <- get_RLum(IRSAR.RF.Data)[[1]]
#
# # create the HTML report
# report_RLum(object = data.curve, file = "~/Data_Curve")
#
# ## Example: Any other object ----
# x <- list(x = 1:10,
# y = runif(10, -5, 5),
# z = data.frame(a = LETTERS[1:20], b = dnorm(0:9)),
# NA)
#
# report_RLum(object = x, file = "~/arbitray_list")
# ## End(Not run)
Run the code above in your browser using DataLab