Re: [R] screen resolution effects on graphics

From: Charles Annis, P.E. <Charles.Annis_at_statisticalengineering.com>
Date: Tue 29 Aug 2006 - 04:16:50 EST


Gabor:

I am afraid I am demonstrating my lack of computer savvy.

As you instructed, I downloaded the code, saved it as the file you suggested, and executed this within R

as.numeric(gsub(".* ", "", grep("resolution",   shell('cscript \\bin\\displayconfiguration.vbs', intern = TRUE), value = TRUE)))

The DOS window opened, some magic occurred in the blink of an eye, and the DOS window closed. I haven't the foggiest idea what to do next since I can see no evidence of having done anything.

Thanks for your patience.

Charles Annis, P.E.

Charles.Annis@StatisticalEngineering.com phone: 561-352-9699
eFax: 614-455-3265
http://www.StatisticalEngineering.com  

-----Original Message-----
From: r-help-bounces@stat.math.ethz.ch
[mailto:r-help-bounces@stat.math.ethz.ch] On Behalf Of Gabor Grothendieck Sent: Monday, August 28, 2006 11:39 AM
To: Charles.Annis@statisticalengineering.com Cc: r-help
Subject: Re: [R] screen resolution effects on graphics

  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.
<Charles.Annis@statisticalengineering.com> 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.
>

> Charles.Annis@StatisticalEngineering.com
> phone: 561-352-9699
> eFax: 614-455-3265
> http://www.StatisticalEngineering.com
>

> -----Original Message-----
> From: r-help-bounces@stat.math.ethz.ch
> [mailto:r-help-bounces@stat.math.ethz.ch] On Behalf Of bogdan romocea
> Sent: Monday, August 28, 2006 10:55 AM
> To: Charles.Annis@statisticalengineering.com
> 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: r-help-bounces@stat.math.ethz.ch
> > [mailto:r-help-bounces@stat.math.ethz.ch] 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.
> >
> > Charles.Annis@StatisticalEngineering.com
> > 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.

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. Received on Tue Aug 29 04:22:10 2006

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.1.8, at Tue 29 Aug 2006 - 06:52:56 EST.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.