check manual run R sctipt