Revert "Revert "Update hisub.R""

This reverts commit 31a2ed9.
hiplot · Feb 18, 2021 · 8775440 · 8775440
1 parent 31a2ed9
commit 8775440
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/hisub.R b/hisub.R
@@ -465,8 +465,8 @@ collect_params <- function(x) {
             message("\t data rows: ", elen)
             message("\t esize: ", esize)
             if (esize > 500 & elen > 1) {
-              edata <- edata[c(1, sample(seq_along(edata[-1]), round(250 * elen / esize)))]
-              message("\t reset esize to: ", esize)
+              edata <- edata[c(1, sample(2:(elen + 1), round(250 * elen / esize)))]
+              message("\t reset esize")
             }
             example_textarea[[y$param_name]] <<- paste(edata, collapse = "\n")
           }