make myQC internal

NAMESPACE

@@ -16,7 +16,6 @@ export(logCreate)
 export(logPending)
 export(logRemove)
 export(logSummary)
-export(myQC)
 export(renderQCReport)
 export(renderQCSummary)
 export(repoHistory)

NEWS.md

@@ -2,8 +2,6 @@
 
 ## New features and changes
 
-- `myQC` outstanding QC check by user. (#138)
-
 - `renderQCReport` render a QC report document. (#135)
 
 - `logRemove` added to package to assist with removing files from the QC log. (#105)

R/myQC.R

@@ -6,7 +6,6 @@
 #' Users can also filter the results by days since their last edit, to only look at files edited
 #' within a specified period of time.
 #'
-#' @param .user A character string indicating the user whose commit history is being examined. Default is the current system user, determined by `Sys.info()[["user"]]`.
 #' @param .within_days A numeric value indicating how many days back to look for edits.
 #'   Default is `Inf`, meaning no time limit is applied.
 #'
@@ -23,9 +22,11 @@
 #' print(result$`Awaiting QC`)
 #' }
 #'
-#' @export
-myQC <- function(.user = Sys.info()[["user"]],
-                 .within_days = Inf) {
+#' @keywords internal experimental
+myQC <- function(.within_days = Inf) {
+
+  .user <- svnProjInfo()$this_svn_user
+
   rH <- repoHistory()
   qclog <- logRead()
 

_pkgdown.yml

@@ -32,7 +32,6 @@ reference:
     - compareFigures
     - compareTables
     - fileSummary
-    - myQC
   - title: SVN Tools
     desc: Easily access information about SVN repos
     contents: