1. Put the code from
www.microsoft.com/technet/scriptcenter/resources/qanda/jul05/hey0721.mspx
into, say, \bin\displayconfiguration.vbs, and then from R do this:
as.numeric(gsub(".* ", "", grep("resolution",
shell('cscript \\bin\\displayconfiguration.vbs', intern = TRUE),
value = TRUE)))
or we can translate that into R to eliminate the need for a vbs routine
and then run it directly from R (although we will still need the indicated
dll):
# must have GenericEnum.dll registered. That is, download and unzip:
# http://sunsite.univie.ac.at/rcom/download/GenericEnum.zip
# and register it: regsvr32 GenericEnum.dll
library(RDCOMClient)
strComputer = "."
SWBemlocator <- COMCreate("WbemScripting.SWbemLocator")
objWMIService <- SWBemlocator$ConnectServer(strComputer,"\\root\\CIMV2")
colItems <- objWMIService$ExecQuery ("Select * from Win32_DisplayConfiguration")
lEnum <- COMCreate("GenericEnum.AutomationEnum")
lEnum[["Collection"]] <- colItems
if (lEnum$SetFirst()) {
repeat {
cat(lEnum[["Item"]][["DeviceName"]], "\n")
cat(lEnum[["Item"]][["BitsPerPel"]], "\n")
cat(lEnum[["Item"]][["Pelswidth"]], "\n")
cat(lEnum[["Item"]][["Pelsheight"]], "\n")
if (!lEnum$SetNext()) break
}
}
On 8/28/06, Charles Annis, P.E.
<[EMAIL PROTECTED]> wrote:
> My apologies for my oversight. I am using WindowsXP. The code that
> produces a nice-looking jpg (when viewed on my screen) produces cramped
> graphics on a 800 X 600 screen. I can change the spacings on the plot and
> remedy the situation for 800 X 600, but that looks awkward at 1280 X 1024.
>
> Thanks
>
> Charles Annis, P.E.
>
> [EMAIL PROTECTED]
> phone: 561-352-9699
> eFax: 614-455-3265
> http://www.StatisticalEngineering.com
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of bogdan romocea
> Sent: Monday, August 28, 2006 10:55 AM
> To: [EMAIL PROTECTED]
> Cc: r-help
> Subject: Re: [R] screen resolution effects on graphics
>
> You forgot to mention your OS. This was asked before and if I recall
> correctly the answer for Windows was no. An acceptable solution (imho)
> is to edit the Rprofile.site files and add something like
> pngplotwidth <- 990 ; pngplotheight <- 700
> pdfplotwidth <- 14 ; pdfplotheight <- 10
> Then, use these values in your functions. It's manual, but you only
> need to do this once for each machine.
>
>
> > -----Original Message-----
> > From: [EMAIL PROTECTED]
> > [mailto:[EMAIL PROTECTED] On Behalf Of
> > Charles Annis, P.E.
> > Sent: Monday, August 28, 2006 8:50 AM
> > To: r-help@stat.math.ethz.ch
> > Subject: [R] screen resolution effects on graphics
> >
> > Greetings, R-Citizens:
> >
> > I have the good fortune of working with a 19" 1280 X 1024
> > pixel monitor. My
> > R-code produces nice-looking graphics on this machine but the
> > same code
> > results in crowded plots on an older machine with 800 X 600
> > resolution. In
> > hindsight this seems obvious, but I didn't anticipate it.
> >
> > My code will be used on machines with varying graphics (and memory)
> > capacity. Is there a way I can check the native resolution
> > of the machine
> > so that I can make adjustments to my code for the possible
> > limitations of
> > the machine running it?
> >
> > Thanks.
> >
> >
> > Charles Annis, P.E.
> >
> > [EMAIL PROTECTED]
> > phone: 561-352-9699
> > eFax: 614-455-3265
> > http://www.StatisticalEngineering.com
> >
> >
> > ______________________________________________
> > R-help@stat.math.ethz.ch 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.
> >
>
> ______________________________________________
> R-help@stat.math.ethz.ch 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.
>
> ______________________________________________
> R-help@stat.math.ethz.ch 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.
>
______________________________________________
R-help@stat.math.ethz.ch 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.
