R/slider1.R

In tibo31/GeoXp: Interactive Exploratory Spatial Data Analysis

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")
  }
}