Fixed maxlen.

mhahsler · May 20, 2019 · feb887a · feb887a
1 parent 7a087d3
commit feb887a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/shiny.R b/R/shiny.R
@@ -252,7 +252,7 @@ ruleExplorer <- function(x, parameter = NULL) {
           support = as.numeric(supp), 
           confidence = as.numeric(input$conf), 
           minlen = input$length[1], 
-          maxlen = input$length[1]),
+          maxlen = input$length[2]),
           control = list(verbose = TRUE))
         quality(rules) <- interestMeasure(rules, transactions = dataset)