From 6f453b3634c0689dbb208a8ecb233504201814ee Mon Sep 17 00:00:00 2001
From: littlecabiria <71769896+littlecabiria@users.noreply.github.com>
Date: Fri, 29 Nov 2024 17:06:29 +1100
Subject: [PATCH] check debug line

---
 src/helpers/utils.R | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/src/helpers/utils.R b/src/helpers/utils.R
index 53747a7..0c12ecc 100644
--- a/src/helpers/utils.R
+++ b/src/helpers/utils.R
@@ -71,8 +71,6 @@ calculate_recall <- function(real_svg, sim_svg) {
 
 # cell type deconvolution
 CARD_processing <- function(sp_adata, sc_adata){
-  requireNamespace("MuSiC", quietly = TRUE)
-  requireNamespace("CARD", quietly = TRUE)
   spatial_count <- Matrix::t(sp_adata$layers[["counts"]])
   spatial_location <- cbind.data.frame(
     x = sp_adata$obs$col,
@@ -88,7 +86,7 @@ CARD_processing <- function(sp_adata, sc_adata){
   )
   rownames(sc_meta) <- sc_meta$cellID
   rownames(spatial_location) <- colnames(spatial_count)
-  
+  print(89)
   CARD_obj <- CARD::createCARDObject(
 	  sc_count = sc_count,
 	  sc_meta = sc_meta,
@@ -99,16 +97,15 @@ CARD_processing <- function(sp_adata, sc_adata){
 	  sample.varname = "sampleInfo",
 	  minCountGene = 100,
 	  minCountSpot = 5) 
-  
+  print(100)
   CARD_obj <- CARD::CARD_deconvolution(CARD_object = CARD_obj)
-
+  print(102)
   Proportion_CARD <- as.matrix(CARD_obj@Proportion_CARD)
 
   return(Proportion_CARD)
 
 }
 
-
 generate_jds <- function(real, sim) {
   common_row_names <- intersect(rownames(real), rownames(sim))
   real_common <- real[common_row_names, , drop = FALSE]