fix #39 fix non-ascii strings

R/mapr-package.R

@@ -38,7 +38,9 @@ NULL
 #' Example dataset: output from call to [spocc::occ()]
 #'
 #' A dataset with 25 rows, and 62 columns, from the query:
-#' `spocc::occ(query='Accipiter striatus', from='gbif', limit=25, has_coords=T)`
+#' `occ(query='Accipiter striatus', from='gbif', limit=25, has_coords=TRUE)`
+#' 
+#' See `inst/ignore/datasets.R` for the code to prepare this dataaset
 #'
 #' @docType data
 #' @keywords datasets
@@ -50,6 +52,8 @@ NULL
 #'
 #' A dataset with 50 rows, and 101 columns, from the query:
 #' `rgbif::occ_search(scientificName = "Puma concolor", limit = 100)`
+#' 
+#' See `inst/ignore/datasets.R` for the code to prepare this dataaset
 #'
 #' @docType data
 #' @keywords datasets

inst/ignore/datasets.R

@@ -0,0 +1,30 @@
+## mapr datasets preparation script
+
+# gbif_eg1
+library(rgbif)
+foo <- occ_search(scientificName = "Puma concolor", limit = 100)
+z <- foo$data
+for (i in seq_along(z)) {
+  if (is.character(z[[i]])) {
+    cat(names(z)[i], sep = "\n")
+    tools::showNonASCII(na.omit(z[[i]]))
+  }
+}
+foo$data$rightsHolder <- stringi::stri_escape_unicode(foo$data$rightsHolder)
+foo$data$stateProvince <- stringi::stri_escape_unicode(foo$data$stateProvince)
+foo$data$verbatimLocality <- stringi::stri_escape_unicode(foo$data$verbatimLocality)
+foo$data$recordedBy <- stringi::stri_escape_unicode(foo$data$recordedBy)
+foo$data$rights <- stringi::stri_escape_unicode(foo$data$rights)
+foo$data$identifiedBy <- stringi::stri_escape_unicode(foo$data$identifiedBy)
+foo$data$occurrenceRemarks <- stringi::stri_escape_unicode(foo$data$occurrenceRemarks)
+z <- foo$data
+gbif_eg1 <- foo$data
+save(gbif_eg1, file = "data/gbif_eg1.rda", version = 2)
+
+# occdat_eg1
+library(spocc)
+res <- occ(query='Accipiter striatus', from='gbif', limit=25, has_coords=TRUE)
+res$gbif$data[[1]]$rights <- stringi::stri_escape_unicode(res$gbif$data[[1]]$rights)
+tools::showNonASCII(res$gbif$data[[1]]$rights)
+occdat_eg1 <- res
+save(occdat_eg1, file = "data/occdat_eg1.rda", version = 2)