bug fix set_project was using non-exported function from QCkit. Add t…

…ripple : to allow set_project to access QCkit:::get_user_email
nationalparkservice · Oct 7, 2024 · 8f3dd92 · 8f3dd92
1 parent 3c727ce
commit 8f3dd92
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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) {