Update Rfoursquare.R