Re: Making a Graphsheet Page Active
Thompson, David (MNR <David.John.Thompson <at> ontario.ca>
2007-09-06 18:19:11 GMT
################################
"Walter R. Paczkowski" <dataanalytics <at> earthlink.net>
Sent by: s-news-owner <at> lists.biostat.wustl.edu 08/31/2007 04:18 PM
To s-news <at> lists.biostat.wustl.edu
cc
Subject [S] Making a Graphsheet Page Active
Hi,
I wrote a function that generates 50 graphs at once in one graphsheet
called GSD2. I often do this and then export the pages to PowerPoint
using the Create PowerPoint option from the graph window menu. This
time, however, I wanted to export the pages in GSD2 using the
export.graph function inside another function. The problem that I have
is that the export.graph function only exports the active page, which
certainly may not be the page I want. How do I activate a page
programmatically inside a function so that repeated calls to
export.graph will export the pages one at a time?
Thanks,
Walt Paczkowski
_________________________________
Walter R. Paczkowski, Ph.D.
Data Analytics Corp.
44 Hamilton Lane
Plainsboro, NJ 08536
(V) 609-936-8999
(F) 609-936-3733
################################
Walt,
Here are a pair of scripts that may have the functionality you seek:
###
#
gspexport <- function(prefix='', ext='.wmf', extype='WMF'){
# Export all pages on current graphsheet to individual WMF
files.
# can't remember why, but need to reassign passed parameters to
local vars
prefix <- prefix ; ext <- ext ; extype <- extype
# gsname is graphsheetpage names
gsname <- list(guiGetObjectNames('GraphSheetPage',
guiGetGSName()))
# pname is graphsheetpage names trimmed of the leading '$$' (if
memory serves)
pname <- lapply(gsname, function(i) substring(i,
nchar(guiGetGSName())+2) )
# fname is output file names
fname <- lapply(pname, function(i, x, y) paste(x, i, y, sep=''),
x = prefix, y = ext)
# for each graphsheet name in gsname . . .
lapply(1:length(gsname[[1]]), function(i, x, y, z){
# . . . activate desired graphsheetpage . . .
guiModify('GraphSheet', Name=guiGetGSName(),
CurrentPage=x[[1]][i])
# . . . and export active graphsheetpage to file with
same name plus extension.
export.graph(FileName=y[[1]][i], Name=guiGetGSName(),
ExportType=z)
}, x = pname, y = fname, z = extype)
} # gspexport(prefix='', ext='', extype='')
#
###
###
#
gsprename <- function(){
# Rename all pages on current graphsheet to new graphsheetpage
names hard-coded into pname[[2]].
gsname <- list(guiGetObjectNames('GraphSheetPage',
guiGetGSName()))
pname <- lapply(gsname, function(x) substring(x,
nchar(guiGetGSName())+2) )
# matching length list of arbitrary new graphsheetpage names
hard-coded to suit.
pname[[2]] <- c('L00', 'L04', 'bd00', 'bd04', 'ht00', 'ht04',
'r00', 'r04', 'rhg00', 'rhg04', 'vol00', 'vol04', 'vph00', 'vph04')
# change the name of a page
lapply(1:length(gsname[[1]]), function(i, x)
guiModify( 'GraphSheetPage', Name = x[[1]][i], NewName =
x[[2]][i])
, x = pname)
invisible()
} # gsprename()
#
###
This little sequence has been handy for exploring classes available and
their arguments and properties:
###
# list ALL arguments for all gui classes, then property names
xxx <- guiGetClassNames()
names(xxx) <- guiGetClassNames()
lapply(xxx, function(x) {guiGetArgumentNames(x)})
lapply(xxx, function(x) {guiGetPropertyNames(x)})
#
###
All this I derived from an awesome post by Tony Plate . . .
###
#
http://www.biostat.wustl.edu/archives/cgi-bin/mesg.cgi?a=s-news&i=438478
6F.8000505%40blackmesacapital.com
Subject: Re: dev.copy on tabbed graphsheet device
From: Tony Plate <tplate <at> blackmesacapital.com>
# The first three functions in this list are what you need to cycle
through the pages in a tabbed graphsheet.
# to get the name of the currently active graphsheet (replace 'GSD2'
below by guiGetGSName())
guiGetGSName()
# to get the names of all the pages in the active graphsheet
guiGetObjectNames('GraphSheetPage', guiGetGSName())
# sets the currently displayed page in a graphsheet
guiModify('GraphSheet', Name=guiGetGSName(), CurrentPage='Page1')
# get the name of a plot (default 1) on a page (default 1) in the
current graphsheet
guiGetPlotName(guiGetGSName(), GraphNum=1, PlotNum=1)
# returns the name of the currently displayed page in the graphsheet
guiGetPropertyValue('GraphSheet', Name=guiGetGSName(), 'CurrentPage')
# set the name of the graphsheet when creating it
graphsheet(Name='FooBar', ...)
# change the name of current graphsheet
guiModify( 'GraphSheet', Name = guiGetGSName(), NewName = 'MyGraph')
# change the name of a page (graphsheet name remains same)
guiModify( 'GraphSheetPage', Name = paste(guiGetGSName(), '1', sep='$'),
NewName = 'MyPage')
# create a new graphsheet page
guiCreate( 'GraphSheetPage', Name = paste(guiGetGSName(), 'Page1',
sep='$'))
# print some pages from a graphsheet (help page says that pages must be
specified as numbers, don't know if this is true)
guiPrint(Name=guiGetGSName(), StartPage=??, EndPage=??)
# saves the whole graphsheet (all pages) in a file
guiSave('GraphSheet', Name=guiGetGSName(), FileName='file.sgr')
# saves the currently active page as an EPS file (many other types are
available)
export.graph(FileName=paste(guiGetGSName(), '.eps', sep='$'),
Name=guiGetGSName(), ExportType='EPS')
# remove the contents of the current page (note that 'Clear' on the
popup-menu on the page tab appears not to work properly)
guiRemoveContents('GraphSheet', Name=guiGetGSName())
# remove a page from the graphsheet (get page names using
guiGetObjectNames('GraphSheetPage', guiGetGSName())). Warning: removing
the last page seems to make the graphsheet non-functional.
guiRemove('GraphSheetPage', Name=page.name)
#
####
###
--------------------------------------------------------------------
This message was distributed by s-news <at> lists.biostat.wustl.edu. To
unsubscribe send e-mail to s-news-request <at> lists.biostat.wustl.edu with
the BODY of the message: unsubscribe s-news
RSS Feed