Updated emails and maintainer for R package

.gitignore

@@ -14,4 +14,6 @@ R/.DS_Store
 /Meta/
 
 *.gz
-inst/
+inst/
+
+CRAN-SUBMISSION

DESCRIPTION

@@ -5,12 +5,12 @@ Version: 1.0.3
 Authors@R:
     c(person(given = "Dominguez Vidana",
              family = "Socorro",
-             role = c("aut"),
+             role = c("aut", "cre"),
              email = "s.dominguez@ht-data.com",
              comment = structure("0000-0002-7926-4935", .Names = "ORCID")),
       person(given = "Simon",
              family = "Goring",
-             role = c("aut", "cre"),
+             role = c("aut"),
              email = "goring@wisc.edu",
              comment = structure("0000-0002-2700-4605", .Names = "ORCID")))
 URL: https://github.com/NeotomaDB/neotoma2

R/02_genericDefinitions.R

@@ -22,7 +22,7 @@ setGeneric("coordinates", function(obj, ...) {
 })
 
 #' @title plotLeaflet
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{s.dominguez@ht-data.com}
 #' @description Plot sites on a leaflet map
 #' @param object Sites object to plot
 #' @returns leaflet map with site markers

R/build_sample.R

@@ -1,5 +1,5 @@
 #' @title Build a samples `data.frame` from Neotoma API JSON
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 #' @import gtools
 #' @import lubridate
 #' @import dplyr

R/get_datasets.R

@@ -1,5 +1,5 @@
 #' @title get_datasets
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 #' @import gtools
 #' @import lubridate
 #' @import geojsonsf

R/get_downloads.R

@@ -1,5 +1,5 @@
 #' @title get_downloads
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 #' @import gtools
 #' @import lubridate
 #' @import dplyr

R/get_sites.R

@@ -29,7 +29,7 @@ parse_site <- function(result) {
 }
 
 #' @title get_sites
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 #' @import gtools
 #' @import lubridate
 #' @import sf
@@ -140,7 +140,7 @@ get_sites <- function(x = NA, ...) {
 }
 
 #' @title get_sites
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 #' @import gtools
 #' @import lubridate
 #' @import sf

R/get_specimens.R

@@ -1,5 +1,5 @@
 #' @title get_specimens
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{s.dominguez@ht-data.com}
 #' @import gtools
 #' @import lubridate
 #' @import geojsonsf

R/parseURL.R

@@ -1,6 +1,6 @@
 #' @md
 #' @title parseURL
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{s.dominguez@ht-data.com}
 #' @author Simon Goring \email{goring@wisc.edu}
 #' @import gtools
 #' @import lubridate

R/parse_location.R

@@ -1,5 +1,5 @@
 #' @title parse_location
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{s.dominguez@ht-data.com}
 #' @import gtools
 #' @import lubridate
 #' @import geojsonsf

R/toJSON.R

@@ -1,5 +1,5 @@
 #' @title toJSON
-#' @author Socorro Dominguez \email{sedv8808@@gmail.com}
+#' @author Socorro Dominguez \email{s.dominguez@ht-data.com}
 #' @import gtools
 #' @import lubridate
 #' @import sf