added jpeg through R