From e895a8366cc138c3a060bef3f1fe0004e149c89b Mon Sep 17 00:00:00 2001 From: Don van den Bergh Date: Fri, 11 Oct 2024 10:03:59 +0200 Subject: [PATCH] cleanup --- R/options.R | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/R/options.R b/R/options.R index b4c8d03..56d02d2 100644 --- a/R/options.R +++ b/R/options.R @@ -297,21 +297,16 @@ parsePreloadDataFromDescriptionQml <- function(analysisName) { description <- parseDescriptionQmlFromAnalysisName(analysisName) - # is the preloadData globally set to TRUE? + # is preloadData globally set to TRUE? preloadDataGlobal <- isTRUE(description[["Description"]][["preloadData"]]) - # is the preloadData even set for this specific analysis? + # is preloadData even set for this specific analysis? specifiedPreloadData <- "preloadData" %in% names(description[[analysisName]]) - # is the preloadData set to TRUE for this specific analysis? + # is preloadData set to TRUE for this specific analysis? preloadDataAnalysis <- specifiedPreloadData && isTRUE(description[[analysisName]][["preloadData"]]) - # preloadData if set to TRUE for the analysis or if set globally to TRUE and not set for the analysis + # if preloadData set to TRUE for the analysis, or if set globally to TRUE and not set for the analysis preloadData <- preloadDataAnalysis || (preloadDataGlobal && !specifiedPreloadData) - # global analysis -> result warning - # preloadData TRUE TRUE -> TRUE - # TRUE FALSE -> FALSE - # FALSE TRUE -> TRUE - # FALSE FALSE -> FALSE - + # show a warning but only if the preloadData is not set for the analysis if (!preloadData && !specifiedPreloadData) lifecycle::deprecate_warn( when = "0.19.2",