From bfeee829a0e4dd961f5654fcfb7bc5cb884dbaeb Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Wed, 11 Aug 2021 10:57:45 +0200
Subject: [PATCH] [bugfix] Fix variable name in build_redux_doc()
---
R/generate_xml.R | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/R/generate_xml.R b/R/generate_xml.R
index 2fa4f08..3c175c9 100644
--- a/R/generate_xml.R
+++ b/R/generate_xml.R
@@ -16,11 +16,11 @@ build_redux_doc <- function(path,
xpath,
export_path){
- if(missing(benchmark_path)){
- benchmark_path <- unlist(options("r2ogs6.default_benchmark_path"))
+ if(missing(path)){
+ path <- unlist(options("r2ogs6.default_benchmark_path"))
}
- assertthat::assert_that(assertthat::is.string(benchmark_path))
+ assertthat::assert_that(assertthat::is.string(path))
# Default to
if(missing(pattern) && missing(xpath)){
@@ -32,7 +32,7 @@ build_redux_doc <- function(path,
assertthat::assert_that(assertthat::is.string(xpath))
assertthat::assert_that(assertthat::is.string(export_path))
- redux_node <- build_redux_tree(path = benchmark_path,
+ redux_node <- build_redux_tree(path = path,
pattern = pattern,
xpath = xpath,
required = TRUE)
--
GitLab