slider1 <- function(fenetre, refresh.code, names.slide, minima, maxima, resolutions,
starts, no = 0) {
envir <- globalenv()
p <- length(names.slide)
# once the slider created, the function returns the value(s) of the selected slider(s)
if (no != 0) {
if (p == 1) {
res <- as.numeric(tclvalue(get(paste("slider.value", 1, sep = ""),
envir = envir)))
} else {
if (exists("slider.value2", envir = envir)) {
res <- list(alpha11 = as.numeric(tclvalue(get(paste("slider.value", 1, sep = ""),
envir = envir))),
alpha21 = as.numeric(tclvalue(get(paste("slider.value", 2, sep = ""),
envir = envir))))
} else {
res <- list(alpha11 = 20, alpha21 = 20)
}
}
return(res)
}
# creation of the slider on the Tk window
for (i in 1:p) {
eval(parse(text = paste("assign(\"slider.value", i,
"\",tclVar(starts[i]),envir=envir)", sep = "")))
lab <- tklabel(fenetre, text = names.slide[i], width = "25")
sc <- tkscale(
fenetre,
command = refresh.code,
from = minima[1],
to = maxima[1],
showvalue = TRUE,
resolution = resolutions[1],
orient = "horiz"
)
assign("sc", sc, envir = envir)
tkgrid(lab, sc)
eval(parse(text = paste("tkconfigure(sc,variable=slider.value", i, ")", sep = "")),
envir = list(envir, envir))
tkgrid.configure(lab,
column = 0,
columnspan = 5,
sticky = "w")
tkgrid.configure(sc,
column = 6,
columnspan = 5,
sticky = "w")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.