From ada636897afb3370e540b7b6f9c6e63058a1d803 Mon Sep 17 00:00:00 2001 From: Andrew Gene Brown Date: Tue, 24 Sep 2024 18:05:09 -0700 Subject: [PATCH] simplifyFragment/ArtifactData: remove messages about some records missing data (this is common/expected) --- R/simplifyArtifactData.R | 2 +- R/simplifyFragmentData.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/simplifyArtifactData.R b/R/simplifyArtifactData.R index eca61996..1ccfa49c 100644 --- 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 index 25b426a5..fbe67dba 100644 --- 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