Re: [R] package usage statistics. (UPDATE)

From: Roger Bivand <Roger.Bivand_at_nhh.no>
Date: Tue 26 Sep 2006 - 12:16:38 GMT


On Tue, 26 Sep 2006, Vladimir Eremeev wrote:

> Here is the perl script with some comments

??

t1 <- installed.packages()
t2 <- is.na(t1[,"Priority"])
t3 <- names(t2)[t2]
t4 <- sapply(t3, function(n) file.info(system.file("R", package=n)[1])$atime)
class(t4) <- "POSIXct"
sort(t4)

though the R directory may not be the best place to look for the atime? (This isn't the same, but you get the idea, there is a well-known "fortune" ...)

Roger

>
> <pre>
> #!/bin/perl -w
>
> use File::Find;
> # we use the standard Perl module.
> # its procedure will scan the directory tree and put all package names to the
> hash
> # along with counting the number of their loadings.
>
> %pkgs=("base"=>-1, # won't print packages installed by default
> "datasets"=>-1,
> "grDevices"=>-1,
> "graphics"=>-1,
> "grid"=>-1,
> "methods"=>-1,
> "splines"=>-1,
> "stats"=>-1,
> "stats4"=>-1,
> "tcltk"=>-1,
> "tools"=>-1,
> "utils"=>-1,
> "MASS"=>-1
> );
>
> sub wanted { # this subroutine is used by the File::Find
> procedure
> # it adds package names to the hash above
> return if($_!~/\.[Rr]$/ && $_!~/\.[Rr]history$/); # do nothing if this file
> doesn't contain R commands
>
> open IN,"< ".$File::Find::name or die("cannot open file $!");
>
> while(<IN>){
> if(/library\((.*)\)/){ # looking for
> library(...) calls
> $pkgname=$1;
> next if(! -d "C:\\Program Files\\R\\library\\$pkgname"); # don't do
> anything if the package directory doesn't exist
> # simple
> protection against typos
> if(exists $pkgs{$pkgname}) {
> $pkgs{$pkgname}=$pkgs{$pkgname}+1; # here we assume that
> basic packages are not loaded
> }else{ # with "library()"
> $pkgs{$pkgname}=1;
> }
> }
> }
> close(IN);
> }
>
> sub getdepends { # this subroutine resolves the package dependencies
> $pkgname=$_[0]; # its argument is a package name. It finds the packages
> the current one depends on
> # and adds them to the hash above
> open IN, "< C:\\Program Files\\R\\library\\$pkgname\\DESCRIPTION" or return;
> #do {print ("cannot open file C:\\Program
> Files\\R\\library\\$pkgname\\DESCRIPTION\n $!");
> while(<IN>){
> if($_=~/^Imports: (.*)/ || $_=~/^Depends: (.*)/) {
> @deplist=split(/,/,$1);
> for(@deplist) {
> next if(/R \(.*\)/); # exclude dependencies on R version
> s/\s//g;
> if(/(.*)\(.*\)/) {
> $pkgname=$1;
> }else{
> $pkgname=$_;
> }
>
> if(exists $pkgs{$pkgname}) {
> $pkgs{$pkgname}=$pkgs{$pkgname}+1 if($pkgs{$pkgname}>0); # don't add
> basic packages
> }else{
> $pkgs{$pkgname}=1;
> }
> }
> }
> }
> close(IN);
> }
>
> # now the main loop. hope, it is self-describing
>
> print "Searching for R commands...";
> find({ wanted => \&wanted, no_chdir => 1 }, '.');
> print "done!\n";
>
> print "Now resolving dependencies...";
> for $p (keys %pkgs) {
> #print "$p\n";
> getdepends($p);
> }
> print "done!\n";
>
> open OUT,"> install.pkgs.r" or die("cannot create file install.pkgs.r");
>
> print OUT "install.packages(\n";
> foreach(keys %pkgs){
> print OUT " $_,\n" if($pkgs{$_}>0);
> }
> print OUT " ask=FALSE)\n";
>
> close(OUT);
> </pre>
>
> ______________________________________________
> 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.
>

-- 
Roger Bivand
Economic Geography Section, Department of Economics, Norwegian School of
Economics and Business Administration, Helleveien 30, N-5045 Bergen,
Norway. voice: +47 55 95 93 55; fax +47 55 95 95 43
e-mail: Roger.Bivand@nhh.no

______________________________________________
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 Sep 26 22:47:02 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 26 Sep 2006 - 15:30:06 GMT.

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