not bullding
implemented R script automatic call