johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 18:57:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

analyze: Allow to exclude detailed results

Browse source
This commit is contained in:
Elias Projahn 2022-02-24 15:57:27 +01:00
parent 074902b505
commit 54e3b433f7
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/analyze.R
View file

@ -5,6 +5,8 @@
#' function should accept a number between 0.0 and 1.0 for the current
#' progress. If no function is provided, a simple text progress bar will be
#' shown.
#' @param include_results Whether to include the detailed results. If this is
#' set to `FALSE`, only the `scores` are available.
#'
#' @returns An object containing the results of the analysis with the following
#' items:
@ -15,7 +17,7 @@
#' }
#'
#' @export
analyze <- function(preset, progress = NULL) {
analyze <- function(preset, progress = NULL, include_results = TRUE) {
if (!inherits(preset, "geposan_preset")) {
stop("Preset is invalid. Use geposan::preset() to create one.")
}
@ -60,7 +62,7 @@ analyze <- function(preset, progress = NULL) {
list(
preset = preset,
scores = scores,
results = results
results = if (include_results) results else NULL
),
class = "geposan_analysis"
)