fixed treeplyr test function"