return error if G is gpError

jeffersonfparil · Jun 3, 2024 · 1011025 · 1011025
1 parent 4784c23
commit 1011025
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -13,6 +13,7 @@ export(fn_elastic_net)
 export(fn_filter_genotype)
 export(fn_filter_phenotype)
 export(fn_gBLUP)
+export(fn_kfold_cross_validation)
 export(fn_lasso)
 export(fn_load_genotype)
 export(fn_load_phenotype)

diff --git a/R/load.R b/R/load.R
@@ -1004,6 +1004,9 @@ fn_load_genotype = function(fname_geno, ploidy=NULL, retain_minus_one_alleles_pe
             return(G)
         })
     })
+    if (methods::is(G, "gpError")) {
+        return(G)
+    }
     ### Retain a-1 allele/s per locus, i.e. remove duplicates assuming all loci are biallelic
     if (retain_minus_one_alleles_per_locus==TRUE) {
         list_G_G_alt = fn_G_split_off_alternative_allele(G=G, verbose=verbose)