From 0998c8fb87e3fdc131460559c1d2ab56c00181af Mon Sep 17 00:00:00 2001
From: seifer08ms <hi181904665@gmail.com>
Date: Thu, 1 Dec 2016 16:16:11 +0800
Subject: [PATCH] Corrected documents of getCoordinate() and getLocation()

---
 R/getCoordinate.R    | 8 ++++----
 R/getLocation.R      | 4 ++--
 man/getCoordinate.Rd | 8 ++++----
 man/getLocation.Rd   | 2 +-
 4 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/R/getCoordinate.R b/R/getCoordinate.R
index c373b32..489fc33 100644
--- a/R/getCoordinate.R
+++ b/R/getCoordinate.R
@@ -47,16 +47,16 @@ getCoordinate.core = function(address, city=NULL, output='json', formatted = F){
 #' @examples
 #' \dontrun{ 
 #' ## json output
-#' getCoordinate('beijingdaxue')
+#' getCoordinate('北京大学')
 #' 
 #' ## xml output
-#' getCoordinate('beijingdaxue', output='xml')
+#' getCoordinate('北京大学', output='xml')
 #' 
 #' ## formatted
-#' getCoordinate('beijingdaxue', formatted = T)
+#' getCoordinate('北京大学', formatted = T)
 #' 
 #' ## vectorization, return a matrix
-#' getCoordinate(c('beijingdaxue', 'qinghuadaxue'), formatted = T)
+#' getCoordinate(c('北京大学', '清华大学'), formatted = T)
 #' }
 getCoordinate=function(address, city=NULL, output='json', formatted = F,limit=600){
     if(length(address)<limit){
diff --git a/R/getLocation.R b/R/getLocation.R
index fdb2072..65f5582 100644
--- a/R/getLocation.R
+++ b/R/getLocation.R
@@ -41,7 +41,7 @@ getLocation.core = function(location, output='json', formatted = F, pois=0){
 #' 
 #' \dontrun{  
 #' ## get one location 
-#' location_one = getLocation(118.12845, 24.57742)
+#' location_one = getLocation(c(118.12845, 24.57742))
 #' 
 #' ## vectorization
 #' loc = matrix(c(117.93780, 24.55730, 117.93291, 24.57745, 117.23530, 24.64210, 117.05890, 24.74860), byrow=T, ncol=2)
@@ -64,7 +64,7 @@ getLocation.core = function(location, output='json', formatted = F, pois=0){
 #' 
 getLocation=
     function (location, output = "json", formatted = F, pois = 0,limit=600) {
-        if(nrow(location)<limit){
+        if(NROW(location)<limit){
             res<-getLocation.core(location, output, formatted , pois)
         }else if(require(parallel)){
             cl <- makeCluster(getOption("cl.cores", detectCores()*0.8))
diff --git a/man/getCoordinate.Rd b/man/getCoordinate.Rd
index f7d353f..31e86fa 100644
--- a/man/getCoordinate.Rd
+++ b/man/getCoordinate.Rd
@@ -29,16 +29,16 @@ Take in address and return the coordinate
 \examples{
 \dontrun{ 
 ## json output
-getCoordinate('beijingdaxue')
+getCoordinate('北京大学')
 
 ## xml output
-getCoordinate('beijingdaxue', output='xml')
+getCoordinate('北京大学', output='xml')
 
 ## formatted
-getCoordinate('beijingdaxue', formatted = T)
+getCoordinate('北京大学', formatted = T)
 
 ## vectorization, return a matrix
-getCoordinate(c('beijingdaxue', 'qinghuadaxue'), formatted = T)
+getCoordinate(c('北京大学', '清华大学'), formatted = T)
 }
 }
 
diff --git a/man/getLocation.Rd b/man/getLocation.Rd
index 5b65637..9a1b086 100644
--- a/man/getLocation.Rd
+++ b/man/getLocation.Rd
@@ -30,7 +30,7 @@ Take in coordiantes and return the location
 
 \dontrun{  
 ## get one location 
-location_one = getLocation(118.12845, 24.57742)
+location_one = getLocation(c(118.12845, 24.57742))
 
 ## vectorization
 loc = matrix(c(117.93780, 24.55730, 117.93291, 24.57745, 117.23530, 24.64210, 117.05890, 24.74860), byrow=T, ncol=2)