R/displayEst.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"displayEst" <- function (plotoptions) 
{
  if (length(plotoptions@makeps) != 0) 
    filename <- paste(plotoptions@makeps, "_paramEst.txt", sep = "")
  else
    filename <- ".currParamEst"	
       
  if(dev.interactive()) {
   writeLines("\n ### Parameter estimates ###")
    writeLines(readLines(filename))
# ## Got rid of tcltk dependency here:       
#    local({
#      tt <- tktoplevel()
#       tkwm.title(tt, "Parameter estimates")
#      txt <- tktext(tt, bg = "white", font = "courier 15")
#      scr <- tkscrollbar(tt, repeatinterval = 5, command = function(...) tkyview(txt, 
#                                                   ...))
#      tkconfigure(txt, yscrollcommand = function(...) tkset(scr, 
#                         ...))
#      tkpack(txt, side = "left", fill = "both", expand = TRUE)
#      tkpack(scr, side = "right", fill = "y")
#      chn <- tclopen(filename)
#      tkinsert(txt, "end", tclread(chn))
#      tclclose(chn)
#      tkconfigure(txt, state = "disabled")
#      tkmark.set(txt, "insert", "0.0")
#      tkfocus(txt)
#  })
  }
}