slight rearrangement of occ_to_sp docs

Author: sckott

DESCRIPTION

@@ -23,7 +23,7 @@ Depends:
 Imports:
     rinat (>= 0.1.1),
     rbison (>= 0.3.2),
-    rgbif (>= 0.6.0),
+    rgbif (>= 0.6.2),
     ecoengine (>= 1.3),
     rebird (>= 0.1.1),
     AntWeb (>= 0.6.1),

R/occ_to_sp.r

@@ -1,23 +1,23 @@
 #' Create a spatial points dataframe from a spocc search.
 #' 
+#' @import sp
+#' @export
+#' 
 #' @param occObj The resuslts of a spocc search called by occ()
 #' @param coord_string A valid EPGS cooridate string from the sp package, the default is WSGS 84
 #' @param just_coords Return data frame with specios names and provenance or just a spatial points object, which is the default.
 #' 
 #' @details This function will return either a spatial points dataframe or spatial points object. Conversion to spatial points objects allows spocc searches to interact with other spatial data sources. More coordinate system codes can be found at the EPGS registry: http://www.epsg-registry.org/
 #' 
-#' @import sp
-#' @export
-#' 
 #' @examples \dontrun{
-#' library(sp) # for the spplot function below
+#' library("sp") # for the spplot function below
 #' out <- occ(query = "Populus tremuloides", from = c("inat","gbif"))
 #' out <- fixnames(out, "query")
 #' sp_points <- occ_to_sp(out)
 #' spplot(sp_points, "prov")
 #' 
 #' ### Or see how they line up on a map
-#' library(maptools)
+#' library("maptools")
 #' data(wrld_simpl)
 #' plot(wrld_simpl[wrld_simpl$NAME == "United States", ],xlim=c(-70,-60))
 #' out <- occ(query = "Accipiter striatus", from = c("inat","gbif"))

man/occ_to_sp.Rd

@@ -21,14 +21,14 @@ This function will return either a spatial points dataframe or spatial points ob
 }
 \examples{
 \dontrun{
-library(sp) # for the spplot function below
+library("sp") # for the spplot function below
 out <- occ(query = "Populus tremuloides", from = c("inat","gbif"))
 out <- fixnames(out, "query")
 sp_points <- occ_to_sp(out)
 spplot(sp_points, "prov")
 
 ### Or see how they line up on a map
-library(maptools)
+library("maptools")
 data(wrld_simpl)
 plot(wrld_simpl[wrld_simpl$NAME == "United States", ],xlim=c(-70,-60))
 out <- occ(query = "Accipiter striatus", from = c("inat","gbif"))