simplifyFragment/ArtifactData: remove messages about some records mis…

…sing data (this is common/expected)
ncss-tech · Sep 25, 2024 · ada6368 · ada6368
1 parent 36cc055
commit ada6368
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/simplifyArtifactData.R b/R/simplifyArtifactData.R
@@ -62,7 +62,7 @@ simplifyArtifactData <- function(art, id.var, vol.var = "huartvol", nullFragsAre
     return(dat)
   } else if (any(is.na(art[[vol.var]]))) {
     art <- art[which(!is.na(art[[vol.var]])), ]
-    message('NOTE: some records are missing artifact volume')
+    # message('NOTE: some records are missing artifact volume')
   }
 
   # extract classes

diff --git a/R/simplifyFragmentData.R b/R/simplifyFragmentData.R
@@ -176,7 +176,7 @@ simplifyFragmentData <- function(rf, id.var, vol.var = "fragvol", prefix = "frag
     return(dat)
   } else if (any(is.na(rf[[vol.var]]))) {
     rf <- rf[which(!is.na(rf[[vol.var]])), ]
-    message(sprintf('NOTE: some records are missing %s', msg))
+    # message(sprintf('NOTE: some records are missing %s', msg))
   }
 
   # extract classes