fixing R script
return value for topgo script