Nothing
createGapChb <-
function(labTitle = "Gap sets", envir = KTSEnv) {
createTitle(labTitle = labTitle)
for (ind in 1:KTSEnv$dSList$nGaps) {
gapind <- paste0("gap", ind)
gcbValueind <- paste0("gcbValue", ind)
assign(gapind, tcltk::tkcheckbutton(KTSEnv$subPanR4C1,
text = KTSEnv$dSList$gaps[ind]))
assign(paste0("gcbValue", ind), tcltk::tclVar("0"), envir = envir)
tcltk::tkconfigure(get(gapind),
variable = get(gcbValueind, envir = envir))
tcltk::tkgrid(get(gapind), sticky = "nw", padx = c(15, 0),
pady = c(0, 0))
rm(gapind, gcbValueind)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.