From 63af25a63d09cc51f73d3d90152933c0bbfdf0d6 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Thu, 14 Sep 2023 11:11:37 +0200
Subject: [PATCH] Auto-recognizing format of greedyMix() data

Works as long as there's only one period in the file path
---
 R/greedyMix.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/greedyMix.R b/R/greedyMix.R
index 3b81b81..aa74a5a 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -23,7 +23,7 @@
 #' data <- system.file("extdata", "FASTA_clustering_haploid.fasta", package = "rBAPS")
 #' greedyMix(data, "fasta")
 greedyMix <- function(
-  data, format, partitionCompare = NULL, ninds = 1L, npops = 1L,
+  data, format = gsub("^.*\\.", "", data), partitionCompare = NULL, ninds = 1L, npops = 1L,
   counts = NULL, sumcounts = NULL, max_iter = 100L, alleleCodes = NULL,
   inp = NULL, popnames = NULL, fixedK = FALSE, verbose = FALSE
 ) {