Oops, I just sent the wrong mail. It should be the following one. Please
delete my mail from 30.Dez. 17:51
Sorry, but I don't really understand the recommended method using the tk-Box
"tkGetSaveFile".
I wrote the following code:
X11()
# some code to generate a plot on the screen omitted
res <- tkmessageBox(title="Finish?",
message="save as PDF?",
icon="question", type="okcancel")
if (tclvalue(res) == "ok")
Datei <- tkgetSaveFile(initialdir="temp/",defaultextension=".pdf",
initialfile="Haupt_Chl_Phaeo.pdf")
dev.copy(pdf, tclvalue(Datei))
else graphics.off()
graphics.off()
In the moment I'm saving I dont have the pdf generated yet. If I put it the
other way round:
dev.copy(pdf, tclvalue(Datei))
if (tclvalue(res) == "ok")
Datei <- tkgetSaveFile(initialdir="temp/",defaultextension=".pdf",
initialfile="Haupt_Chl_Phaeo.pdf")
I don't have the filename specified when it is needed.
(But today I could finish the Windows versions at last, using WinDialog ;-)
Greetings
Richard
--
Richard Müller - Am Spring 9 - D-58802 Balve-Eisborn
www.oeko-sorpe.de
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
