使用代码更改目录：
this.setState()这是错误：
setwd("~/R/capstone/yelp_dataset_challenge_academic_dataset")
输入代码后：
Error in setwd("~/R/yelp/yelp_dataset_challenge_academic_dataset") :
cannot change working directory
此外还有错误：
tip <- stream_in(file("yelp_academic_dataset_tip.json"))
checkin <- stream_in(file("yelp_academic_dataset_checkin.json"))
user <- stream_in(file("yelp_academic_dataset_user.json"))
review <- stream_in(file("yelp_academic_dataset_review.json"))
business <- stream_in(file("yelp_academic_dataset_business.json"))