included reload funciton instead of method

R/class-dsoParams.R

@@ -109,32 +109,3 @@ setMethod(
     })
   }
 )
-
-
-#' @title reload function
-#' @description
-#'
-#' Generic for function reload
-#'
-#' @param object dsoParams config object
-#' @export
-setGeneric("reload", function(object, ...) standardGeneric("reload"))
-
-
-#' @title reload dso params
-#' @description
-#' reloads the current dsoParams config into object
-#'
-#' @param object dsoParams object
-#' @param env environment in which object is located, caller_env() by default
-#' @export
-setMethod("reload", "dsoParams", function(object, env = caller_env()) {
-  if (!inherits(object, "dsoParams")) {
-    stop("The object is not of class 'dsoParams'")
-  }
-
-  var_name <- deparse(substitute(object))
-  assign(var_name, value = read_params(), envir = env)
-
-  invisible(get(var_name, envir = env))
-})

R/read_params.R

@@ -33,7 +33,7 @@ read_params <- function(stage_path = NULL, return_list = FALSE) {
     if (is.null(config_env$stage_dir)) {
       stop("stage_path argument missing.")
     } else {
-      cat(paste("reloading from already set stage_path:", config_env$stage_dir))
+      message(glue::glue("Reloading from already set stage_path: {config_env$stage_dir}"))
       stage_path <- config_env$stage_dir
     }
   }

R/reload.R

@@ -0,0 +1,17 @@
+#' @title Reload dsoParams
+#' @description
+#' Reloads the current dsoParams configuration into the object.
+#'
+#' @param params dsoParams object
+#' @param env environment in which object is located, caller_env() by default
+#' @return The updated dsoParams object.
+#' @export
+reload <- function(params, env = caller_env()) {
+  if (!inherits(params, "dsoParams")) {
+    stop("The object is not of class 'dsoParams'")
+  }
+  var_name <- deparse(substitute(params))
+  assign(var_name, value = read_params(), envir = env)
+
+  invisible(get(var_name, envir = env))
+}