From d36886d7b40ddf2b57b604d15c7ae0ed5dee57b4 Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Wed, 6 Jan 2021 19:02:07 +0100
Subject: [PATCH] [base] minor bugfixes
---
R/utils.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/utils.R b/R/utils.R
index 2e7b1e5..5a7bcb4 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -255,7 +255,7 @@ add_wrapper <- function(x, to_obj){
assertthat::assert_that(any(grepl("OGS6_", class(to_obj), fixed = TRUE)))
for(i in seq_len(length(x))){
- add_component(x, to_obj)
+ to_obj$add_component(x)
}
}
@@ -377,7 +377,7 @@ validate_is_dir_path <- function(path){
#'clean_up_imported_list
#'@description Cleans an imported list because sometimes strings containing
#' only newline characters and spaces get imported in
-#'@param list list: A list
+#'@param imported_list list: A list
clean_up_imported_list <- function(imported_list){
assertthat::assert_that(is.list(imported_list))
@@ -613,7 +613,7 @@ validate_is_null_or_param_list <- function(obj, default_names){
#'@description Helper function to speed up tests
#'@param prj_paths character: .prj paths
#'@param starting_from_prj_path string: .prj path to start from
-#'@return
+#'@return character: The sublist starting from `starting_from_prj_path`
get_path_sublist <- function(prj_paths, starting_from_prj_path){
assertthat::assert_that(is.character(prj_paths))
--
GitLab