R - Show commonly used packages of users

getCommonlyUsedPackages.php

<?php

$pkgs = [];
$libs = 'R/x86_64-pc-linux-gnu-library';

chdir('/home');



$users = glob('*.*');

	foreach($users as $user) {
	chdir('/home');
	echo $user.PHP_EOL;

	if(is_dir($user)) {
		chdir($user);
	} else {
		continue;
	}

	if(is_dir($libs)) {
		chdir($libs);
		$rvers = glob('*');
		foreach($rvers as $rver) {
			echo '.....'.$rver.PHP_EOL;
			if(!chdir('/home/'.$user.'/'.$libs.'/'.$rver)) {
				echo "Skipping...".PHP_EOL;
				continue;
			}
			$ulibs = glob('*');
			foreach($ulibs as $lib) {
				echo '...............'.$lib.PHP_EOL;
				if(array_key_exists($lib, $pkgs)) { $pkgs[$lib]++; } else { $pkgs[$lib] = 1; }
			}
		}
	}

}

asort($pkgs);

echo PHP_EOL.PHP_EOL;

foreach($pkgs as $pkg => $cnt) {
	if($cnt > 1) {
		echo str_pad($pkg, 20).': '.$cnt.' User'.PHP_EOL;
	}
}

?>