disable missing values in the input.

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: SpaTopic
 Type: Package
 Title: Topic Inference to Identify Tissue Architecture in Multiplexed Images
-Version: 1.1.0.9000
+Version: 1.1.0.9900
 Date: 2024-04-22
 Authors@R: person("Xiyu", "Peng", email = "[email protected]",
   role = c("aut", "cre"),comment = c(ORCID = "0000-0003-4232-0910"))
@@ -23,7 +23,7 @@ Suggests:
     SeuratObject (>= 4.9.9.9086),
     doParallel (>= 1.0),
 VignetteBuilder: knitr
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Encoding: UTF-8
 LazyData: true
 URL: https://github.com/xiyupeng/SpaTopic

R/Gibbs_sampler.R

@@ -147,6 +147,14 @@ SpaTopic_inference<-function(tissue, ntopics, sigma = 50, region_radius = 400, k
     return(NULL)
   }
 
+  if(any(is.na(itr_df$image)) | 
+     any(is.na(itr_df$X)) |
+     any(is.na(itr_df$Y)) |
+     any(is.na(itr_df$type)) ){
+    stop("Please make sure you have no NA in your input dataset!")
+    return(NULL)
+  }
+
   itr_df$X<-as.numeric(itr_df$X)
   itr_df$Y<-as.numeric(itr_df$Y)
   itr_df$type<-as.factor(itr_df$type) 

R/SpaTopic-package.R

@@ -21,12 +21,10 @@
 #' 
 #' @author Xiyu Peng \email{[email protected]}
 #'
-#' @docType package
-#'
 #' @keywords package
 #' 
 #' @importFrom Rcpp sourceCpp
 #' 
 #' @useDynLib SpaTopic
-NA
+"_PACKAGE"