## Not run:
# test <- geoloc("350 5th Avenue New York NY", "Google API key")
# getWS(test$coordinates[1],test$coordinates[2], "Walk Score API key")
# getTS(test$coordinates[1],test$coordinates[2],"New York","NY","Walk Score API key")
# ## End(Not run)
Run the code above in your browser using DataLab