silent effing bug in r script