diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2014-08-25 17:11:23 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2014-08-25 17:11:23 +0200 |
| commit | dbf3de0faf1321972b91d17b2e2e2f0b384d7402 (patch) | |
| tree | a41aed2328585d12e109b3944c03cf7cadd1415b /inst | |
| parent | b49586a6f80dba1502da45272b631e15bb162a52 (diff) | |
Make it possible to save summaries as text files
Diffstat (limited to 'inst')
| -rw-r--r-- | inst/GUI/gmkin.R | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R index a582a8a..ff98c32 100644 --- a/inst/GUI/gmkin.R +++ b/inst/GUI/gmkin.R @@ -896,8 +896,16 @@ f.gg.opts.maxit.modFit <- gedit("auto", label = "maxit.modFit", # Summary {{{3
oldwidth <- options()$width
options(width = 90)
+summaryfile <- paste(ds[[ds.cur]]$title, "_", m[[m.cur]]$name, ".txt", sep = "")
+f.gg.summary <- ggroup(label = "Summary", cont = f.gn, horizontal = FALSE)
+f.gg.summary.topline <- ggroup(cont = f.gg.summary, horizontal = TRUE)
+f.gg.summary.filename <- gedit(summaryfile, width = 50, cont = f.gg.summary.topline)
+f.gg.summary.savebutton <- gbutton("Save summary", cont = f.gg.summary.topline,
+ handler = function(h, ...) {
+ capture.output(stmp, file = summaryfile)
+ })
f.gg.summary <- ghtml(c("<pre>", capture.output(stmp), "</pre>"),
- cont = f.gn, label = "Summary")
+ cont = f.gg.summary, label = "Summary")
options(width = oldwidth)
# Plot options {{{4
|