From 8f3dd9244e088bdfcd0cef54c1ee001c4d120d9b Mon Sep 17 00:00:00 2001
From: Rob Baker <robert_baker@nps.gov>
Date: Mon, 7 Oct 2024 11:08:27 -0600
Subject: [PATCH] bug fix set_project was using non-exported function from
 QCkit. Add tripple : to allow set_project to access QCkit:::get_user_email

---
 R/editEMLfunctions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/editEMLfunctions.R b/R/editEMLfunctions.R
index 39900c0..6f171e6 100644
--- a/R/editEMLfunctions.R
+++ b/R/editEMLfunctions.R
@@ -1575,7 +1575,7 @@ set_project <- function(eml_object,
   #test whether user has ownership permissions for the project.
   #only run this test if NPS is true and force is false:
   if (NPS == TRUE && force == FALSE) {
-    email <- QCkit::get_user_email()
+    email <- QCkit:::get_user_email()
     ownership <- rjson$permissions$referenceOwners
 
     if (sum(grepl(email, ownership)) < 1) {