.onAttach <- function(libname, pkgname) {
options("pboptions" = list(
type = if (interactive()) "timer" else "none",
char = ":",
txt.width = 50,
gui.width = 300,
style = 3,
initial = 0,
title = "R progress bar",
label = "",
nout = 100L,
min_time = 2
))
invisible(NULL)
}
utils::globalVariables(c(
"KEY", "TEI", "girl_name",
"Name of girl", "Phone Number",
"Date of Service Provision",
"Girl ID", "..y", "attribute",
"Date of follow up call",
"orgUnit", "enrollments",
"dataElement", "value"
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.