Fix bug in wrong run_filter filtering based on min_pres

[hechth]

Currently, the min_pres filtering fails to include the entire RT span but actually makes it based off of the min_run length that is applied as a parameter.

The proper condition should be

n() >= span(rt) * min_pres * scan_rate

recetox-aplcms/R/run_filter.R

Lines 97 to 110 in a393e64

	# calculates the minimun number of rt points to be considered a peak
	scan_rate <- 1.0 / abs(median(diff(times)))
	min_count_run <- round(min_pres * min_run * scan_rate)
	# computes unique groups
	uniq_grp <- compute_uniq_grp(newprof$grps, min_count_run, min_pres)
	# ordered by mz and grps data that are inside unigrps
	newprof <- dplyr::filter(newprof, grps %in% uniq_grp) |> dplyr::arrange(grps, mz)
	results <- dplyr::group_by(newprof, grps) |>
	dplyr::filter(n() >= min_count_run && abs(span(rt)) >= min_run) |>
	dplyr::ungroup() |>
	dplyr::rename(group_number = grps)