The R Project SVN R

Rev

Rev 37487 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 37487 Rev 37725
Line 35... Line 35...
35 
use Text::Wrap;
 35 
use Text::Wrap;
36 
 
 36 
 
37 
## Don't buffer output.
 37 
## Don't buffer output.
38 
$| = 1;
 38 
$| = 1;
39 
 
 39 
 
40 
my $revision = ' $Rev: 37487 $ ';
 40 
my $revision = ' $Rev: 37725 $ ';
41 
my $version;
 41 
my $version;
42 
my $name;
 42 
my $name;
43 
$revision =~ / ([\d\.]*) /;
 43 
$revision =~ / ([\d\.]*) /;
44 
$version = $1;
 44 
$version = $1;
45 
($name = $0) =~ s|.*/||;
 45 
($name = $0) =~ s|.*/||;
Line 1273... Line 1273...
1273 
	my $Rcmd = "options(warn=1)\n";
 1273 
	my $Rcmd = "options(warn=1)\n";
1274 
	$Rcmd .= "tools:::.check_code_usage_in_package(package = \"${pkgname}\")\n";
 1274 
	$Rcmd .= "tools:::.check_code_usage_in_package(package = \"${pkgname}\")\n";
1275 
	my @out = R_runR($Rcmd, "${R_opts} --quiet",
 1275 
	my @out = R_runR($Rcmd, "${R_opts} --quiet",
1276 
                         "R_DEFAULT_PACKAGES='utils,grDevices,graphics,stats'");
 1276 
                         "R_DEFAULT_PACKAGES='utils,grDevices,graphics,stats'");
1277 
	@out = grep(!/^\>/, @out);
 1277 
	@out = grep(!/^\>/, @out);
1278 
	## <FIXME>
 - 
 
1279 
	## Temporarily work around R 2.3.0 NULL environment changes.
 - 
 
1280 
        @out = grep(!/^Warning: use of NULL environment is deprecated/,
 - 
 
1281 
		    @out);
 - 
 
1282 
	## </FIXME>
 - 
 
1283 
	if(scalar(@out) > 0) {
 1278 
	if(scalar(@out) > 0) {
1284 
	    $log->warning();
 1279 
	    $log->warning();
1285 
	    $log->print(join("\n", @out) . "\n");
 1280 
	    $log->print(join("\n", @out) . "\n");
1286 
	}
 1281 
	}
1287 
	else {
 1282 
	else {