nationalparkservice · RobLBaker · Jul 25, 2025 · Jul 25, 2025 · Jul 25, 2025 · wright13
diff --git a/NAMESPACE b/NAMESPACE
@@ -18,6 +18,7 @@ export(get_dp_flags)
 export(get_elevation)
 export(get_park_polygon)
 export(get_taxon_rank)
+export(get_user_orcid)
 export(get_utm_zone)
 export(long2UTM)
 export(order_cols)

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,7 @@
 # QCkit v1.1.0
+## 2025-07-25
+* add function `get_user_orcid`, which will look up a users orcid using active directory. 
+
 ## 2025-05-16
 * create_datastore_script now invisibly returns the DataStore reference URL
 

diff --git a/R/utils.R b/R/utils.R
@@ -69,3 +69,34 @@ get_user_email <- function() {
 
   return(email_address)
 }
+
+#' Returns the user's ORCID ID from active directory
+#'
+#' @description
+#' This is a function to grab a users ORCID from Active Directory. Requires VPN to access AD. If the user does not have an ORCID, returns "NA".
+#'
+#'
+#' @returns Sting. The user's ORCID ID
+#' @export
+#'
+#' @examples
+#' \dontrun{
+#' orcid <- get_user_orcid()
+#' }
+get_user_orcid <- function() {
+  powershell_command <- '([adsisearcher]\\"(samaccountname=$env:USERNAME)\\").FindAll().Properties'
+
+  AD_output <- system2("powershell",
+                  args = c("-Command",
+                           powershell_command),
+                  stdout = TRUE)
+  #get extensionAttribute2 (holds orcid)
+  orcid <- AD_output[which(AD_output %>%
+                             stringr::str_detect("extensionattribute2"))]
+  # extract orcid
+  orcid <- stringr::str_extract(orcid, "\\{.*?\\}")
+  # remove curly braces:
+  orcid <- stringr::str_remove_all(orcid, "[{}]")
+
+  return(orcid)
+}
diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/CONTRIBUTING.html b/docs/CONTRIBUTING.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/LICENSE.html b/docs/LICENSE.html
diff --git a/docs/articles/DRR_Purpose_and_Scope.html b/docs/articles/DRR_Purpose_and_Scope.html
diff --git a/docs/articles/Starting-a-DRR.html b/docs/articles/Starting-a-DRR.html
diff --git a/docs/articles/Using-the-DRR-Template.html b/docs/articles/Using-the-DRR-Template.html
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -5,7 +5,7 @@ articles:
   articles/DRR_Purpose_and_Scope: DRR_Purpose_and_Scope.html
   articles/Starting-a-DRR: Starting-a-DRR.html
   articles/Using-the-DRR-Template: Using-the-DRR-Template.html
-last_built: 2025-05-19T15:23Z
+last_built: 2025-07-25T21:03Z
 urls:
   reference: https://nationalparkservice.github.io/QCkit/reference
   article: https://nationalparkservice.github.io/QCkit/articles
diff --git a/docs/reference/DC_col_check.html b/docs/reference/DC_col_check.html
diff --git a/docs/reference/QCkit-package.html b/docs/reference/QCkit-package.html
diff --git a/docs/reference/check_dc_cols.html b/docs/reference/check_dc_cols.html
diff --git a/docs/reference/check_te.html b/docs/reference/check_te.html
diff --git a/docs/reference/convert_datetime_format.html b/docs/reference/convert_datetime_format.html
diff --git a/docs/reference/convert_long_to_utm.html b/docs/reference/convert_long_to_utm.html
diff --git a/docs/reference/convert_utm_to_ll.html b/docs/reference/convert_utm_to_ll.html
diff --git a/docs/reference/create_datastore_script.html b/docs/reference/create_datastore_script.html
diff --git a/docs/reference/document_missing_values.html b/docs/reference/document_missing_values.html
diff --git a/docs/reference/fix_utc_offset.html b/docs/reference/fix_utc_offset.html
diff --git a/docs/reference/fuzz_location.html b/docs/reference/fuzz_location.html
diff --git a/docs/reference/generate_ll_from_utm.html b/docs/reference/generate_ll_from_utm.html