Swapped argument order to match MATLAB

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 [[]]?
 

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, ")"))
     }