From 00cd966075c693cdce8c4f9f33503a826a060fe5 Mon Sep 17 00:00:00 2001
From: Alice Antonello <aliceantonello9@gmail.com>
Date: Fri, 12 Jul 2024 18:10:11 +0200
Subject: [PATCH] fix bug map_mutations_to_subclonal_segments

---
 R/map_mutations.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/map_mutations.R b/R/map_mutations.R
index e0eef9c0..1377ffb9 100644
--- a/R/map_mutations.R
+++ b/R/map_mutations.R
@@ -72,6 +72,7 @@ map_mutations_to_subclonal_segments = function(mutations, cna_subclonal)
   # Map mutations to the actual segments
   cna_subclonal$mutations = NULL
 
+  if (nrow(cna_subclonal)>0){
   # pb <- progress_estimated(nrow(cna_subclonal), min_time = 0)
   pb = progress::progress_bar$new(format = paste0(" ▣ :spin [:bar] :percent [ETA :eta] ▶ :elapsedfull"),
                                   total = nrow(cna_subclonal), clear = TRUE, complete = "~", incomplete = " ",
@@ -99,6 +100,7 @@ map_mutations_to_subclonal_segments = function(mutations, cna_subclonal)
   }
 
   cna_subclonal$n = sapply(cna_subclonal$mutations, nrow)
+  }
 
   return(cna_subclonal)
 }