cat(sprintf('%s backend is registered<n>',
if(getDoParRegistered()) 'A' else 'No'))
cat(sprintf('Running with %d worker(s)<n>', getDoParWorkers()))
(name <- getDoParName())
(ver <- getDoParVersion())
if (getDoParRegistered())
cat(sprintf('Currently using %s [%s]<n>', name, ver))</n>
<keyword>utilities</keyword></n></n>
Run the code above in your browser using DataLab