From 67b157516d7b4fe49e21395a168dc2084bc1cab7 Mon Sep 17 00:00:00 2001 From: maltelueken Date: Tue, 17 Oct 2023 14:01:54 +0200 Subject: [PATCH] Rename procModelGraphSingleModel to .procModelGraphSingleModel --- R/classicProcess.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/classicProcess.R b/R/classicProcess.R index 179f13e..81d5644 100644 --- a/R/classicProcess.R +++ b/R/classicProcess.R @@ -130,7 +130,7 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) { modelName <- modelOptions[["name"]] if (is.null(modelsContainer[[modelName]][["graph"]])) { - graph <- try(procModelGraphSingleModel(options[["processModels"]][[i]], globalDependent = options[["dependent"]])) + graph <- try(.procModelGraphSingleModel(options[["processModels"]][[i]], globalDependent = options[["dependent"]])) state <- createJaspState(object = graph) state$dependOn( optionContainsValue = list(processModels = modelOptions), @@ -142,7 +142,7 @@ ClassicProcess <- function(jaspResults, dataset = NULL, options) { } } -procModelGraphSingleModel <- function(modelOptions, globalDependent, options) { +.procModelGraphSingleModel <- function(modelOptions, globalDependent, options) { processRelationships <- switch(modelOptions[["inputType"]], inputVariables = modelOptions[["processRelationships"]], # Insert function for plotting conceptual hard-coded Hayes model, in case