From 3a74751ebbbc5dcbd74f2a1aeca4a0ec53f510c8 Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Tue, 24 Nov 2020 09:29:10 +0100
Subject: [PATCH] [bugfix] Altered function generation a bit so
subclasses_names is always a character vector now
---
R/generate_functions.R | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/R/generate_functions.R b/R/generate_functions.R
index 015eab8..ef12abc 100644
--- a/R/generate_functions.R
+++ b/R/generate_functions.R
@@ -232,20 +232,20 @@ generate_simple_read_in <- function(element_name, child_name,
"\", \"", child_name, "\", selection_vector = ")
if(has_name_tag){
- func_str <- paste0(func_str, child_name, "_names, subclasses_names = ")
+ func_str <- paste0(func_str, child_name, "_names")
}else{
- func_str <- paste0(func_str, child_name, "_indices, subclasses_names = ")
+ func_str <- paste0(func_str, child_name, "_indices")
}
if(!is.null(subclasses_names)){
subclasses_str <- utils::capture.output(invisible(dput(subclasses_names)))
subclasses_str <- paste(subclasses_str, collapse = "")
- func_str <- paste0(func_str, subclasses_str, ")\n")
- }else{
- func_str <- paste0(func_str, "NULL)\n")
+ func_str <- paste0(func_str, ", subclasses_names = ", subclasses_str)
}
- func_str <- paste0(func_str, "}\n")
+ func_str <- paste0(func_str,
+ ")\n",
+ "}\n")
cat(func_str)
return(invisible(func_str))
--
GitLab