Fix error, correct variable name

KWB-R · Oct 28, 2023 · 16444d2 · 16444d2
1 parent 545109b
commit 16444d2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/read_intermediate_results_from_log.R b/R/read_intermediate_results_from_log.R
@@ -45,7 +45,7 @@ read_intermediate_results_from_log <- function(
   code_lines <- sapply(textblocks, "[", 1L)
 
   # Name the list elements according to the codes
-  names(textblocks) <- gsub(pattern, "", code_lines)
+  names(textblocks) <- gsub(pattern_code, "", code_lines)
 
   # Convert the text blocks with first (= code) line excluded to matrices
   matrices <- lapply(textblocks, function(x) {