detect SC_ARRAY

DESCRIPTION

@@ -2,12 +2,13 @@ Package: SNPRelate
 Type: Package
 Title: Parallel Computing Toolset for Relatedness and Principal Component
         Analysis of SNP Data
-Version: 1.33.2
-Date: 2023-03-19
+Version: 1.35.2
+Date: 2023-08-26
 Depends: R (>= 2.15), gdsfmt (>= 1.8.3)
 LinkingTo: gdsfmt
 Imports: methods
-Suggests: parallel, Matrix, RUnit, knitr, markdown, rmarkdown, MASS, BiocGenerics
+Suggests: parallel, Matrix, RUnit, knitr, markdown, rmarkdown, MASS,
+        BiocGenerics
 Enhances: SeqArray (>= 1.12.0)
 Authors@R: c(person("Xiuwen", "Zheng", role=c("aut", "cre", "cph"),
         email="[email protected]", comment=c(ORCID="0000-0002-1390-0708")),

R/AllUtilities.R

@@ -53,6 +53,12 @@ snpgdsOpen <- function(filename, readonly=TRUE, allow.duplicate=FALSE,
             "since 'FileFormat=SEQ_ARRAY', or run 'SeqArray::seqSNP2GDS()' ",
             "to convert the file to GWAS SNP GDS format.")
         }
+        if (identical(at$FileFormat, "SC_ARRAY"))
+        {
+            stop(sprintf(
+                "'%s' is a SCArray GDS file, please use SCArray::scOpen().",
+                filename))
+        }
         if (!identical(at$FileFormat, "SNP_ARRAY") &&
             !identical(at$FileFormat, "IMPUTED_DOSAGE"))
         {