HOLA ME DEDICO A DESARROLLAR GUI CON EL R
PUEDES ESCRIBIRME A MI CORREO ismael_jgr1@hotmail.com
para cualquier consulta
library(tcltk)
library(tcltk2)
GUI.TopLevel <-tktoplevel()
tkwm.title(GUI.TopLevel, "AMMI")
TRD<- tk2ico.load(file.path(Sys.getenv("R_HOME"), "bin","R.exe"), res = "R")
tk2ico.set(GUI.TopLevel,TRD)
tk2ico.destroy(TRD)
rm(TRD)
tkwm.deiconify(GUI.TopLevel)
Tcl(paste("wm minsize ",GUI.TopLevel, " 500 300", sep = ""))