Move library into main R dir
Drop unused function
got chained running working correctly