loncom/homework/lonr.pm - diff

Return to lonr.pm CVS log

Up to [LON-CAPA] / loncom / homework

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; }
}	}