diff --git a/.gitignore b/.gitignore
index d547b10..a836527 100644
--- a/.gitignore
+++ b/.gitignore
@@ -14,4 +14,6 @@ R/.DS_Store
 /Meta/
 
 *.gz
-inst/
\ No newline at end of file
+inst/
+
+CRAN-SUBMISSION
diff --git a/DESCRIPTION b/DESCRIPTION
index 6329ea1..7233b3e 100644
--- a/DESCRIPTION
+++ b/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
diff --git a/R/02_genericDefinitions.R b/R/02_genericDefinitions.R
index fdf1d48..b0b826d 100644
--- a/R/02_genericDefinitions.R
+++ b/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
diff --git a/R/build_sample.R b/R/build_sample.R
index e81c80e..9a52c64 100644
--- a/R/build_sample.R
+++ b/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
diff --git a/R/get_datasets.R b/R/get_datasets.R
index 6b7c4ba..00bf2b7 100644
--- a/R/get_datasets.R
+++ b/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
diff --git a/R/get_downloads.R b/R/get_downloads.R
index c897d62..241db46 100644
--- a/R/get_downloads.R
+++ b/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
diff --git a/R/get_sites.R b/R/get_sites.R
index cafb8f7..3cf0d4b 100644
--- a/R/get_sites.R
+++ b/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
diff --git a/R/get_specimens.R b/R/get_specimens.R
index 357f370..b225b23 100644
--- a/R/get_specimens.R
+++ b/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
diff --git a/R/parseURL.R b/R/parseURL.R
index 1a0c7ea..8362839 100644
--- a/R/parseURL.R
+++ b/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
diff --git a/R/parse_location.R b/R/parse_location.R
index 85eb4ff..b7e0ce8 100644
--- a/R/parse_location.R
+++ b/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
diff --git a/R/toJSON.R b/R/toJSON.R
index 266ff92..fc28b11 100644
--- a/R/toJSON.R
+++ b/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
diff --git a/man/build_sample.Rd b/man/build_sample.Rd
index 3cf94da..d7ffa98 100644
--- a/man/build_sample.Rd
+++ b/man/build_sample.Rd
@@ -17,5 +17,5 @@ Helper function to build a sample from the API input (list formatted)
 coming from the Neotoma API.
 }
 \author{
-Socorro Dominguez \email{sedv8808@gmail.com}
+Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 }
diff --git a/man/get_datasets.Rd b/man/get_datasets.Rd
index e27804f..613c27d 100644
--- a/man/get_datasets.Rd
+++ b/man/get_datasets.Rd
@@ -94,5 +94,5 @@ datasets(brazil_datasets)
 }
 }
 \author{
-Socorro Dominguez \email{sedv8808@gmail.com}
+Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 }
diff --git a/man/get_downloads.Rd b/man/get_downloads.Rd
index 7969741..1e15f03 100644
--- a/man/get_downloads.Rd
+++ b/man/get_downloads.Rd
@@ -79,5 +79,5 @@ brazil_downloads <- get_downloads(brazil_datasets)
 }
 }
 \author{
-Socorro Dominguez \email{sedv8808@gmail.com}
+Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 }
diff --git a/man/get_sites.Rd b/man/get_sites.Rd
index c950a21..a4aa0ce 100644
--- a/man/get_sites.Rd
+++ b/man/get_sites.Rd
@@ -111,5 +111,5 @@ plot(x = seq(0, 10000, by = 1000), y = lilysites, type = 'b')
 }
 }
 \author{
-Socorro Dominguez \email{sedv8808@gmail.com}
+Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 }
diff --git a/man/get_sites.default.Rd b/man/get_sites.default.Rd
index af09abd..38d7da6 100644
--- a/man/get_sites.default.Rd
+++ b/man/get_sites.default.Rd
@@ -26,5 +26,5 @@ limited collection units information.
 get_sites
 }
 \author{
-Socorro Dominguez \email{sedv8808@gmail.com}
+Socorro Dominguez \email{{s.dominguez@ht-data.com}}
 }
diff --git a/man/get_specimens.Rd b/man/get_specimens.Rd
index 1e64acd..abedaa1 100644
--- a/man/get_specimens.Rd
+++ b/man/get_specimens.Rd
@@ -26,5 +26,5 @@ my_specimens2 <- get_specimens(datasetid = 41610)
 }
 }
 \author{
-Socorro Dominguez \email{sedv8808@gmail.com}
+Socorro Dominguez \email{s.dominguez@ht-data.com}
 }
diff --git a/man/parseURL.Rd b/man/parseURL.Rd
index 6854092..782a1e8 100644
--- a/man/parseURL.Rd
+++ b/man/parseURL.Rd
@@ -24,7 +24,7 @@ An internal helper function used to connect to the Neotoma API
 in a standard manner, and to provide basic validation of any response.
 }
 \author{
-Socorro Dominguez \email{sedv8808@gmail.com}
+Socorro Dominguez \email{s.dominguez@ht-data.com}
 
 Simon Goring \email{goring@wisc.edu}
 }
diff --git a/man/plotLeaflet.Rd b/man/plotLeaflet.Rd
index 3905e5f..a9900ae 100644
--- a/man/plotLeaflet.Rd
+++ b/man/plotLeaflet.Rd
@@ -16,5 +16,5 @@ leaflet map with site markers
 Plot sites on a leaflet map
 }
 \author{
-Socorro Dominguez \email{sedv8808@gmail.com}
+Socorro Dominguez \email{s.dominguez@ht-data.com}
 }
diff --git a/man/toJSON-sites-method.Rd b/man/toJSON-sites-method.Rd
index 13ee246..5492074 100644
--- a/man/toJSON-sites-method.Rd
+++ b/man/toJSON-sites-method.Rd
@@ -24,5 +24,5 @@ toJSON(alex.sites)
 }
 }
 \author{
-Socorro Dominguez \email{sedv8808@gmail.com}
+Socorro Dominguez \email{s.dominguez@ht-data.com}
 }