version 1.6, 2009/06/23 03:01:15
|
version 1.8, 2009/08/12 20:09:02
|
Line 244 sub blacklisted {
|
Line 244 sub blacklisted {
|
} |
} |
|
|
sub r_allowed_libraries { |
sub r_allowed_libraries { |
return ('boot','class','cluster','datasets','KernSmooth','MASS', |
return ('alr3','boot','car','class','cluster','datasets','Hmisc','KernSmooth','leaps','lmtest', |
'methods','mgcv','nlme','nnet','rpart','spatial', |
'MASS','methods','mgcv','nlme','nnet','qAnalyst','quadprog','rpart','SuppDists','spatial', |
'splines','stats','stats4','survival'); |
'splines','stats','stats4','survival','tseries','zoo'); |
} |
} |
|
|
sub r_is_allowed_library { |
sub r_is_allowed_library { |
Line 273 sub runscript {
|
Line 273 sub runscript {
|
} |
} |
} |
} |
} |
} |
foreach my $line (split(/\;/s,$fullscript)) { |
foreach my $line (split(/[\n\r]+/s,$fullscript)) { |
if ($line=~/\w/) { $reply=&rreply($socket,$line.";\n"); } |
if ($line=~/\w/) { $reply=&rreply($socket,$line.";\n"); } |
if ($reply=~/^Error\:/) { return $reply; } |
if ($reply=~/^Error\:/) { return $reply; } |
} |
} |