Gilead-BioStats · mattroumaya · Sep 1, 2022 · Sep 1, 2022
diff --git a/R/Study_AssessmentReport.R b/R/Study_AssessmentReport.R
@@ -38,7 +38,7 @@ Study_AssessmentReport <- function(lAssessments, bViewReport = FALSE) {
       )
 
     allChecks <- map(lAssessments[[assessment]][["checks"]], function(step) {
-      domains <- names(step[!names(step) %in% c("status", "mapping")])
+      domains <- names(step[!names(step) %in% c('mapping', 'spec', "status")])
 
       map(domains, function(domain) {
         status <- step[[domain]][["status"]]

diff --git a/R/Visualize_Score.R b/R/Visualize_Score.R
@@ -68,7 +68,7 @@ Visualize_Score <- function(
           if ("TotalExposure" %in% names(dfFlagged)) {
             sum(dfFlagged$TotalCount) / sum(dfFlagged$TotalExposure)
           } else {
-            sum(dfFlagged$TotalCount) / nrow(dfFlagged)
+            sum(dfFlagged$TotalCount) / sum(dfFlagged$N)
           }
         ),
         linetype = "dashed",