printing update

caravagnalab · Apr 3, 2024 · 08c5ceb · 08c5ceb
1 parent 5e67973
commit 08c5ceb
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/print.INCOMMON.R b/R/print.INCOMMON.R
@@ -45,6 +45,13 @@ print.INCOMMON = function(x, ...) {
         ))
 
 
+    cli::cli_alert_info('There are: ')
+    for (state in c('HMD', 'LOH', 'CNLOH', 'AM', 'Tier-2')) {
+      N  = classification(x) %>% dplyr::filter(state == !!state) %>% nrow()
+      cli::cli_bullets(c("*" = paste0("N = ", N, ' mutations (', state, ')')))
+    }
+
+
     print(classification(x))
   } else{