Skip to content
Snippets Groups Projects
Commit daf2e7f1 authored by Ruben Heinrich's avatar Ruben Heinrich
Browse files

[base] WIP copy_all function

parent d2653ec0
No related branches found
No related tags found
1 merge request!6Merge branch 7 fixed functionality into master
...@@ -150,11 +150,11 @@ run_benchmark <- function(prj_path, ...@@ -150,11 +150,11 @@ run_benchmark <- function(prj_path,
sim_path){ sim_path){
if(missing(ogs_bin_path)){ if(missing(ogs_bin_path)){
ogs_bin_path <- options("r2ogs6.default_ogs_bin_path") ogs_bin_path <- unlist(options("r2ogs6.default_ogs_bin_path"))
} }
if(missing(sim_path)){ if(missing(sim_path)){
sim_path <- options("r2ogs6.default_sim_path") sim_path <- unlist(options("r2ogs6.default_sim_path"))
} }
assertthat::assert_that(assertthat::is.string(prj_path)) assertthat::assert_that(assertthat::is.string(prj_path))
...@@ -199,15 +199,15 @@ run_all_benchmarks <- function(path, ...@@ -199,15 +199,15 @@ run_all_benchmarks <- function(path,
print_failed_prj_paths = TRUE){ print_failed_prj_paths = TRUE){
if(missing(path)){ if(missing(path)){
path <- options("r2ogs6.default_benchmark_path") path <- unlist(options("r2ogs6.default_benchmark_path"))
} }
if(missing(ogs_bin_path)){ if(missing(ogs_bin_path)){
ogs_bin_path <- options("r2ogs6.default_ogs_bin_path") ogs_bin_path <- unlist(options("r2ogs6.default_ogs_bin_path"))
} }
if(missing(sim_path)){ if(missing(sim_path)){
sim_path <- options("r2ogs6.default_sim_path") sim_path <- unlist(options("r2ogs6.default_sim_path"))
} }
assertthat::assert_that(assertthat::is.string(path)) assertthat::assert_that(assertthat::is.string(path))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment