_temp/testUI.R

In bendeivide/MCPtests: Multiples Comparisons Procedures

require(tcltk)

# Main Window
base <- tktoplevel(padx=10, pady=10)
tkwm.geometry(base, "600x400")
# Change title using tk window manager
tkwm.title(base,'Test App')
# Main Window Frame
main_frame <- tkframe(base, relief="sunken", borderwidth = 1)

# Canvas
canvas <- tkcanvas(main_frame)

tkpack(main_frame, canvas, fill = "both", expand=TRUE)
#tkpack(main_frame, fill = "both", expand=TRUE)

tkconfigure(canvas, "-background", "blue")


drawGraph <- function() {
  # Graph test data
  x <- 1:10
  y <- x^2

  # Graph geometry
  height <- as.numeric(tclvalue(tkwinfo("height", canvas)))
  width <- as.numeric(tclvalue(tkwinfo("width", canvas)))

  # Temp file
  fp <- tempfile(pattern = "MCPtests.",
                 tmpdir = tempdir(),
                 fileext = ".png")

  # Create Image
  png(
    filename = fp,
    width = width,
    height = height,
    units = "px"
    )

  plot(x, y, type="l", main="Test Plot", xlab="X", ylab="Y")

  dev.off()

  tkimage.create("photo", "::image::imgteste", file = fp)

  # Set image to element
  #tkpack.forget(canvas)

  # Create a new canvas with the new image
  #new_canvas <- tkcanvas(main_frame)
  tkcreate(canvas, "image", 0, 0, anchor = "nw", image = "::image::imgteste")

  # Pack new canvas and copy ID to global variable
  # tkpack(new_canvas, fill = "both", expand = TRUE)
  # canvas <- new_canvas
}

# CALLBACKS
onResize <- function() {
  drawGraph()
}

# Window Event Binds
tkbind(base, '<Configure>', onResize)

tkwait.window(main_frame)