Fails for FAST input to greedyMix() (#24)

This is a desirable feature, but was not implemented in the original BAPS, so better leave it out until the original planned features is working.

R/greedyMix.R

@@ -27,6 +27,9 @@ greedyMix <- function(
   inp = NULL, popnames = NULL, fixedK = FALSE, verbose = FALSE
 ) {
   # Importing and handling data ================================================
+  if (tolower(format) %in% "fasta") {
+    stop("FASTA format not yet supported on greedyMix")
+  }
   if (tolower(format) %in% "baps") {
     data <- process_BAPS_data(data, NULL)
     c <- list(

tests/testthat/test-greedyMix.R

@@ -57,12 +57,15 @@ test_that("Files are imported correctly", {
     )
   )
   expect_equal(length(raw_bam[[1]]), 13)
-})
-
-df_fasta <- greedyMix(
+  expect_error(
+    greedyMix(
       data   = file.path(path_inst, "FASTA_clustering_haploid.fasta"),
       format = "FASTA"
-)
+    ),
+    "FASTA format not yet supported on greedyMix"
+  )
+})
+
 test_that("greedyMix() works", {
   expect_error(greedyMix(file.path(path_inst, "vcf_example.vcf")))
   expect_error(greedyMix(file.path(path_inst, "bam_example.bam")))