From 8eb81c51d2fdce431d74fed0e6354d3ea97d00a0 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Thu, 20 May 2021 09:17:08 +0200
Subject: [PATCH] Swapped argument order to match MATLAB

---
 R/admix1.R   | 2 +-
 R/inputdlg.R | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/admix1.R b/R/admix1.R
index 99e5b86..b1ac383 100644
--- a/R/admix1.R
+++ b/R/admix1.R
@@ -86,7 +86,7 @@ admix1 <- function(tietue) {
     nloci <- size(COUNTS, 2)
     ninds <- size(data, 1) / rowsFromInd
 
-    answers <- inputdlg('Input number of iterations', 50)
+    answers <- inputdlg('Input number of iterations', definput=50)
     if (isempty(answers)) return()
     iterationCount <- as.numeric(answers[1, 1]) # maybe [[]]?
 
diff --git a/R/inputdlg.R b/R/inputdlg.R
index 62414d0..52d7495 100644
--- a/R/inputdlg.R
+++ b/R/inputdlg.R
@@ -4,7 +4,7 @@
 #' @param dims number of dimensions in the answwers
 #' @param definput default value of the input
 #' @export
-inputdlg <- function(prompt, definput=NULL, dims=1) {
+inputdlg <- function(prompt, dims=1, definput=NULL) {
     if (!is.null(definput)) {
         prompt <- append(prompt, paste0(" (default: ", definput, ")"))
     }