Revert "Revert "Update hisub.R""

ShixiangWang · ShixiangWang · commit 8775440c32c5 · 2021-02-19T00:19:29.000+08:00
This reverts commit 31a2ed9.
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")
           }

Original file line number	Diff line number	Diff line change
`@@ -465,8 +465,8 @@ collect_params <- function(x) {`
`465`	`465`	`message("\t data rows: ", elen)`
`466`	`466`	`message("\t esize: ", esize)`
`467`	`467`	`if (esize > 500 & elen > 1) {`
`468`		`- edata <- edata[c(1, sample(seq_along(edata[-1]), round(250 * elen / esize)))]`
`469`		`- message("\t reset esize to: ", esize)`
	`468`	`+ edata <- edata[c(1, sample(2:(elen + 1), round(250 * elen / esize)))]`
	`469`	`+ message("\t reset esize")`
`470`	`470`	`}`
`471`	`471`	`example_textarea[[y$param_name]] <<- paste(edata, collapse = "\n")`
`472`	`472`	`}`