From 63fda14243dc9218627f768c9df8b9f821c021dc Mon Sep 17 00:00:00 2001
From: phit0 <philipp.schad@stud.uni-goettingen.de>
Date: Wed, 10 Nov 2021 17:47:44 +0100
Subject: [PATCH] [base] updated classes for rean_in_prj
[base] update classes for ogs v6.4.1
[base] added class arguments for new keywords
[tests] skip benchmarks with *.xml project-files
---
R/prj_chemical_system.R | 43 +++++++-
R/prj_medium.R | 107 +++++++++++++++++--
R/prj_parameter.R | 19 +++-
R/prj_process.R | 200 ++++++++++++++++++++++--------------
R/prj_time_loop.R | 11 +-
R/sim_utils.R | 2 +-
data/xpaths_for_classes.rda | Bin 1062 -> 1064 bytes
7 files changed, 286 insertions(+), 96 deletions(-)
diff --git a/R/prj_chemical_system.R b/R/prj_chemical_system.R
index 264c865..d563d33 100644
--- a/R/prj_chemical_system.R
+++ b/R/prj_chemical_system.R
@@ -14,6 +14,8 @@
#' @param equilibrium_reactants Optional: list, prj_phase_component:
#' @param surface Optional:
#' @param user_punch Optional:
+#' @param linear_solver Optional:
+#' @param exchangers Optional: prj_exchangers
#' @example man/examples/ex_prj_chemical_system.R
#' @export
prj_chemical_system <- function(chemical_solver,
@@ -25,7 +27,9 @@ prj_chemical_system <- function(chemical_solver,
rates = NULL,
equilibrium_reactants = NULL,
surface = NULL,
- user_punch = NULL) {
+ user_punch = NULL,
+ linear_solver = NULL,
+ exchangers = NULL) {
# Add coercing utility here
@@ -38,7 +42,9 @@ prj_chemical_system <- function(chemical_solver,
rates,
equilibrium_reactants,
surface,
- user_punch)
+ user_punch,
+ linear_solver,
+ exchangers)
}
@@ -51,13 +57,17 @@ new_prj_chemical_system <- function(chemical_solver,
rates = NULL,
equilibrium_reactants = NULL,
surface = NULL,
- user_punch = NULL) {
+ user_punch = NULL,
+ linear_solver = NULL,
+ exchangers = NULL) {
are_strings(chemical_solver,
database)
assertthat::assert_that(class(solution) == "prj_solution")
+ assertthat::assert_that(is.null(exchangers) |
+ class(exchangers) == "prj_exchangers")
are_null_or_strings(mesh)
@@ -95,6 +105,8 @@ new_prj_chemical_system <- function(chemical_solver,
equilibrium_reactants = equilibrium_reactants,
surface = surface,
user_punch = user_punch,
+ linear_solver = linear_solver,
+ exchangers = exchangers,
xpath = "chemical_system",
attr_names = c("chemical_solver"),
flatten_on_exp = character()
@@ -141,7 +153,6 @@ new_prj_solution <- function(temperature,
pe,
components,
charge_balance = NULL) {
-
are_numbers(temperature,
pressure,
pe)
@@ -301,3 +312,27 @@ new_prj_rate <- function(kinetic_reactant,
class = "prj_rate"
)
}
+
+#'prj_exchangers
+#'@description tag: exchangers
+#'@param exchange_site list
+#'@export
+prj_exchangers <- function(exchange_site) {
+
+ # Add coercing utility here
+
+ new_prj_exchangers(exchange_site)
+}
+
+new_prj_exchangers <- function(exchange_site) {
+
+ assertthat::assert_that(is.list(exchange_site))
+
+ structure(list(exchange_site = exchange_site,
+ xpath = "chemical_system/exchangers",
+ attr_names = character(),
+ flatten_on_exp = character()
+ ),
+ class = "prj_exchangers"
+ )
+}
diff --git a/R/prj_medium.R b/R/prj_medium.R
index eee61a4..ba96631 100644
--- a/R/prj_medium.R
+++ b/R/prj_medium.R
@@ -79,8 +79,13 @@ new_prj_medium <- function(phases = NULL,
#' @param intrinsic_permeability Optional:
#' @param initial_aperture Optional:
#' @param mean_frac_distance Optional:
+#' @param mean_frac_distances Optional: numeric vector
#' @param threshold_strain Optional:
+#' @param threshold_strains Optional: numeric vector
#' @param fracture_normal Optional:
+#' @param fracture_normals Optional: numeric vector
+#' @param fracture_rotation_xy Optional:
+#' @param fracture_rotation_yz Optional:
#' @param reference_permeability Optional:
#' @param fitting_factor Optional:
#' @param cohesion Optional:
@@ -117,8 +122,13 @@ prj_pr_property <- function(name,
intrinsic_permeability = NULL,
initial_aperture = NULL,
mean_frac_distance = NULL,
+ mean_frac_distances = NULL,
threshold_strain = NULL,
+ threshold_strains = NULL,
fracture_normal = NULL,
+ fracture_normals = NULL,
+ fracture_rotation_xy = NULL,
+ fracture_rotation_yz = NULL,
reference_permeability = NULL,
fitting_factor = NULL,
cohesion = NULL,
@@ -174,8 +184,13 @@ prj_pr_property <- function(name,
intrinsic_permeability,
initial_aperture,
mean_frac_distance,
+ mean_frac_distances,
threshold_strain,
+ threshold_strains,
fracture_normal,
+ fracture_normals,
+ fracture_rotation_xy,
+ fracture_rotation_yz,
reference_permeability,
fitting_factor,
cohesion,
@@ -213,8 +228,13 @@ new_prj_pr_property <- function(name,
intrinsic_permeability = NULL,
initial_aperture = NULL,
mean_frac_distance = NULL,
+ mean_frac_distances = NULL,
threshold_strain = NULL,
+ threshold_strains = NULL,
fracture_normal = NULL,
+ fracture_normals = NULL,
+ fracture_rotation_xy = NULL,
+ fracture_rotation_yz = NULL,
reference_permeability = NULL,
fitting_factor = NULL,
cohesion = NULL,
@@ -277,8 +297,13 @@ new_prj_pr_property <- function(name,
intrinsic_permeability = intrinsic_permeability,
initial_aperture = initial_aperture,
mean_frac_distance = mean_frac_distance,
+ mean_frac_distances = mean_frac_distances,
threshold_strain = threshold_strain,
+ threshold_strains = threshold_strains,
fracture_normal = fracture_normal,
+ fracture_normals = fracture_normals,
+ fracture_rotation_xy = fracture_rotation_xy,
+ fracture_rotation_yz = fracture_rotation_yz,
reference_permeability = reference_permeability,
fitting_factor = fitting_factor,
cohesion = cohesion,
@@ -414,7 +439,10 @@ prj_ph_property <- function(name,
...) {
#Coerce input
- value <- coerce_string_to_numeric(value)
+ if (!is.list(value)) {
+ value <- coerce_string_to_numeric(value)
+ }
+
reference_value <- coerce_string_to_numeric(reference_value)
exponents <- coerce_string_to_numeric(exponents)
offset <- coerce_string_to_numeric(offset)
@@ -457,7 +485,11 @@ new_prj_ph_property <- function(name,
are_strings(name,
type)
- are_null_or_numeric(value)
+ if (is.list(value)) {
+ are_null_or_strings(value[[1]])
+ } else {
+ are_null_or_numeric(value)
+ }
are_null_or_numbers(
reference_value,
@@ -560,34 +592,79 @@ new_prj_component <- function(name,
#' @param type string: Property type
#' @param value Optional: string | double: ...
#' @param parameter_name Optional:
+#' @param reference_diffusion Optional: character
+#' @param activation_energy Optional: string | double
+#' @param reference_temperature Optional: numeric
#' @example man/examples/ex_prj_com_property.R
#' @export
prj_com_property <- function(name,
- type,
- value = NULL,
- parameter_name = NULL) {
+ type,
+ value = NULL,
+ parameter_name = NULL,
+ reference_diffusion = NULL,
+ activation_energy = NULL,
+ reference_temperature = NULL,
+ triple_temperature = NULL,
+ triple_pressure = NULL,
+ critical_temperature = NULL,
+ critical_pressure = NULL,
+ reference_pressure= NULL) {
+
+
#Coerce input
value <- coerce_string_to_numeric(value)
+ activation_energy <- coerce_string_to_numeric(activation_energy)
+ reference_temperature <- coerce_string_to_numeric(reference_temperature)
+ triple_temperature <- coerce_string_to_numeric(triple_temperature)
+ triple_pressure <- coerce_string_to_numeric(triple_pressure)
+ critical_temperature <- coerce_string_to_numeric(critical_temperature)
+ critical_pressure <- coerce_string_to_numeric(critical_pressure)
+ reference_pressure <- coerce_string_to_numeric(reference_pressure)
new_prj_com_property(name,
- type,
- value,
- parameter_name)
+ type,
+ value,
+ parameter_name,
+ reference_diffusion,
+ activation_energy,
+ reference_temperature,
+ triple_temperature,
+ triple_pressure,
+ critical_temperature,
+ critical_pressure,
+ reference_pressure
+ )
}
new_prj_com_property <- function(name,
- type,
- value = NULL,
- parameter_name = NULL) {
+ type,
+ value = NULL,
+ parameter_name = NULL,
+ reference_diffusion = NULL,
+ activation_energy = NULL,
+ reference_temperature = NULL,
+ triple_temperature = NULL,
+ triple_pressure = NULL,
+ critical_temperature = NULL,
+ critical_pressure = NULL,
+ reference_pressure= NULL) {
assertthat::assert_that(assertthat::is.string(name))
assertthat::assert_that(assertthat::is.string(type))
are_null_or_numbers(value)
+ are_null_or_numeric(activation_energy)
+ are_null_or_numeric(reference_temperature)
+ are_null_or_numeric(triple_temperature)
+ are_null_or_numeric(triple_pressure)
+ are_null_or_numeric(critical_temperature)
+ are_null_or_numeric(critical_pressure)
+ are_null_or_numeric(reference_pressure)
are_null_or_strings(parameter_name)
+ are_null_or_strings(reference_diffusion)
structure(
list(
@@ -595,6 +672,14 @@ new_prj_com_property <- function(name,
type = type,
value = value,
parameter_name = parameter_name,
+ reference_diffusion = reference_diffusion,
+ activation_energy = activation_energy,
+ reference_temperature = reference_temperature,
+ triple_temperature = triple_temperature,
+ triple_pressure = triple_pressure,
+ critical_temperature = critical_temperature,
+ critical_pressure = critical_pressure,
+ reference_pressure = reference_pressure,
xpath = paste0("media/medium/phases/phase/components/component/",
"properties/property"),
attr_names = character(),
diff --git a/R/prj_parameter.R b/R/prj_parameter.R
index 8092db5..5c23130 100644
--- a/R/prj_parameter.R
+++ b/R/prj_parameter.R
@@ -15,6 +15,8 @@
#' @param mesh Optional: string:
#' @param time_series Optional: list:
#' @param use_local_coordinate_system Optional: string, "true" | "false":
+#' @param range Optional: list
+#' @param seed Optional: number
#' @param ... Optional: for index_values and expression tags (since there can be
#' multiple)
#' @example man/examples/ex_prj_parameter.R
@@ -30,6 +32,8 @@ prj_parameter <- function(name,
mesh = NULL,
time_series = NULL,
use_local_coordinate_system = NULL,
+ range = NULL,
+ seed = NULL,
...) {
#Coerce input
@@ -41,6 +45,9 @@ prj_parameter <- function(name,
index_values <- ellipsis_list[names(ellipsis_list) == "index_values"]
expression <- ellipsis_list[names(ellipsis_list) == "expression"]
+ range <- coerce_string_to_numeric(range)
+ seed <- coerce_string_to_numeric(seed)
+
new_prj_parameter(name,
type,
value,
@@ -53,7 +60,9 @@ prj_parameter <- function(name,
mesh,
expression,
time_series,
- use_local_coordinate_system)
+ use_local_coordinate_system,
+ range,
+ seed)
}
@@ -69,7 +78,9 @@ new_prj_parameter <- function(name,
mesh = NULL,
expression = NULL,
time_series = NULL,
- use_local_coordinate_system = NULL) {
+ use_local_coordinate_system = NULL,
+ range = NULL,
+ seed = NULL) {
assertthat::assert_that(assertthat::is.string(name))
assertthat::assert_that(assertthat::is.string(type))
@@ -104,6 +115,8 @@ new_prj_parameter <- function(name,
"parameter_name"))
}
}
+ are_null_or_numeric(range)
+ are_null_or_numbers(seed)
structure(list(name = name,
type = type,
@@ -118,6 +131,8 @@ new_prj_parameter <- function(name,
expression = expression,
time_series = time_series,
use_local_coordinate_system = use_local_coordinate_system,
+ range = range,
+ seed = seed,
xpath = "parameters/parameter",
attr_names = character(),
flatten_on_exp = c("values"),
diff --git a/R/prj_process.R b/R/prj_process.R
index 264cfde..14ac7a3 100644
--- a/R/prj_process.R
+++ b/R/prj_process.R
@@ -70,6 +70,14 @@
#' @param pf_irrv Optional:
#' @param micro_porosity Optional:
#' @param explicit_hm_coupling_in_unsaturated_zone Optional:
+#' @param simplified_elasticity Optional: character
+#' @param chemically_induced_porosity_change Optional: character
+#' @param use_server_communication Optional:
+#' @param phasefield_model Optional:
+#' @param irreversible_threshold Optional: numeric
+#' @param tabular_file Optional: character
+#' @param temperature_field Optional: character
+#' @param use_stokes_brinkman_form Optional: character
#' @param ... Optional: fracture_properties, constitutive_relation
#' @example man/examples/ex_prj_process.R
#' @export
@@ -137,8 +145,16 @@ prj_process <- function(name,
density_solid = NULL,
latent_heat_evaporation = NULL,
pf_irrv = NULL,
- micro_porosity = NULL,
+ micro_porosity = NULL,
explicit_hm_coupling_in_unsaturated_zone = NULL,
+ simplified_elasticity = NULL,
+ chemically_induced_porosity_change = NULL,
+ use_server_communication = NULL,
+ phasefield_model = NULL,
+ irreversible_threshold = NULL,
+ tabular_file = NULL,
+ temperature_field = NULL,
+ use_stokes_brinkman_form = NULL,
...){
#Coerce input
@@ -171,6 +187,7 @@ prj_process <- function(name,
split_method <- coerce_string_to_numeric(split_method)
reg_param <- coerce_string_to_numeric(reg_param)
pf_irrv <- coerce_string_to_numeric(pf_irrv)
+ irreversible_threshold <- coerce_string_to_numeric(irreversible_threshold)
ellipsis_list <- list(...)
@@ -248,79 +265,95 @@ prj_process <- function(name,
latent_heat_evaporation,
pf_irrv,
micro_porosity,
- explicit_hm_coupling_in_unsaturated_zone
+ explicit_hm_coupling_in_unsaturated_zone,
+ simplified_elasticity,
+ chemically_induced_porosity_change,
+ use_server_communication,
+ phasefield_model,
+ irreversible_threshold,
+ tabular_file,
+ temperature_field,
+ use_stokes_brinkman_form
)
}
new_prj_process <- function(name,
- type,
- integration_order,
- process_variables,
- secondary_variables = NULL,
- specific_body_force = NULL,
- constitutive_relation = NULL,
- solid_density = NULL,
- dimension = NULL,
- coupling_scheme = NULL,
- darcy_gravity = NULL,
- reference_temperature = NULL,
- fracture_model = NULL,
- fracture_properties = NULL,
- jacobian_assembler = NULL,
- internal_length = NULL,
- mass_lumping = NULL,
- porosity = NULL,
- calculatesurfaceflux = NULL,
- intrinsic_permeability = NULL,
- specific_storage = NULL,
- fluid_viscosity = NULL,
- biot_coefficient = NULL,
- fluid_density = NULL,
- initial_effective_stress = NULL,
- initial_fracture_effective_stress = NULL,
- phasefield_parameters = NULL,
- deactivate_matrix_in_flow = NULL,
- borehole_heat_exchangers = NULL,
- temperature = NULL,
- reactive_system = NULL,
- fluid_specific_heat_source = NULL,
- fluid_specific_isobaric_heat_capacity = NULL,
- solid_hydraulic_permeability = NULL,
- solid_specific_heat_source = NULL,
- solid_heat_conductivity = NULL,
- solid_specific_isobaric_heat_capacity = NULL,
- tortuosity = NULL,
- diffusion_coefficient = NULL,
- solid_density_dry = NULL,
- solid_density_initial = NULL,
- characteristic_pressure = NULL,
- characteristic_temperature = NULL,
- characteristic_vapour_mass_fraction = NULL,
- output_element_matrices = NULL,
- material_property = NULL,
- diffusion_coeff_component_b = NULL,
- diffusion_coeff_component_a = NULL,
- hydro_crack_scheme = NULL,
- at_num = NULL,
- initial_stress = NULL,
- split_method = NULL,
- reg_param = NULL,
- thermal_parameters = NULL,
- non_advective_form = NULL,
- fluid = NULL,
- porous_medium = NULL,
- decay_rate = NULL,
- fluid_reference_density = NULL,
- retardation_factor = NULL,
- solute_dispersivity_longitudinal = NULL,
- solute_dispersivity_transverse = NULL,
- molecular_diffusion_coefficient = NULL,
- density_solid = NULL,
- latent_heat_evaporation = NULL,
- pf_irrv = NULL,
+ type,
+ integration_order,
+ process_variables,
+ secondary_variables = NULL,
+ specific_body_force = NULL,
+ constitutive_relation = NULL,
+ solid_density = NULL,
+ dimension = NULL,
+ coupling_scheme = NULL,
+ darcy_gravity = NULL,
+ reference_temperature = NULL,
+ fracture_model = NULL,
+ fracture_properties = NULL,
+ jacobian_assembler = NULL,
+ internal_length = NULL,
+ mass_lumping = NULL,
+ porosity = NULL,
+ calculatesurfaceflux = NULL,
+ intrinsic_permeability = NULL,
+ specific_storage = NULL,
+ fluid_viscosity = NULL,
+ biot_coefficient = NULL,
+ fluid_density = NULL,
+ initial_effective_stress = NULL,
+ initial_fracture_effective_stress = NULL,
+ phasefield_parameters = NULL,
+ deactivate_matrix_in_flow = NULL,
+ borehole_heat_exchangers = NULL,
+ temperature = NULL,
+ reactive_system = NULL,
+ fluid_specific_heat_source = NULL,
+ fluid_specific_isobaric_heat_capacity = NULL,
+ solid_hydraulic_permeability = NULL,
+ solid_specific_heat_source = NULL,
+ solid_heat_conductivity = NULL,
+ solid_specific_isobaric_heat_capacity = NULL,
+ tortuosity = NULL,
+ diffusion_coefficient = NULL,
+ solid_density_dry = NULL,
+ solid_density_initial = NULL,
+ characteristic_pressure = NULL,
+ characteristic_temperature = NULL,
+ characteristic_vapour_mass_fraction = NULL,
+ output_element_matrices = NULL,
+ material_property = NULL,
+ diffusion_coeff_component_b = NULL,
+ diffusion_coeff_component_a = NULL,
+ hydro_crack_scheme = NULL,
+ at_num = NULL,
+ initial_stress = NULL,
+ split_method = NULL,
+ reg_param = NULL,
+ thermal_parameters = NULL,
+ non_advective_form = NULL,
+ fluid = NULL,
+ porous_medium = NULL,
+ decay_rate = NULL,
+ fluid_reference_density = NULL,
+ retardation_factor = NULL,
+ solute_dispersivity_longitudinal = NULL,
+ solute_dispersivity_transverse = NULL,
+ molecular_diffusion_coefficient = NULL,
+ density_solid = NULL,
+ latent_heat_evaporation = NULL,
+ pf_irrv = NULL,
micro_porosity = NULL,
- explicit_hm_coupling_in_unsaturated_zone = NULL) {
+ explicit_hm_coupling_in_unsaturated_zone = NULL,
+ simplified_elasticity = NULL,
+ chemically_induced_porosity_change = NULL,
+ use_server_communication = NULL,
+ phasefield_model = NULL,
+ irreversible_threshold = NULL,
+ tabular_file = NULL,
+ temperature_field = NULL,
+ use_stokes_brinkman_form = NULL) {
#Basic validation
assertthat::assert_that(assertthat::is.string(name))
@@ -416,7 +449,13 @@ new_prj_process <- function(name,
porosity,
deactivate_matrix_in_flow,
output_element_matrices,
- reference_temperature)
+ reference_temperature,
+ simplified_elasticity,
+ chemically_induced_porosity_change,
+ use_server_communication,
+ tabular_file,
+ temperature_field,
+ use_stokes_brinkman_form)
are_null_or_numbers(dimension,
@@ -437,7 +476,8 @@ new_prj_process <- function(name,
at_num,
split_method,
reg_param,
- pf_irrv)
+ pf_irrv,
+ irreversible_threshold)
if(!is.null(mass_lumping)){
mass_lumping <- stringr::str_remove_all(mass_lumping, "[:space:]*")
@@ -521,6 +561,15 @@ new_prj_process <- function(name,
micro_porosity = micro_porosity,
explicit_hm_coupling_in_unsaturated_zone =
explicit_hm_coupling_in_unsaturated_zone,
+ simplified_elasticity = simplified_elasticity,
+ chemically_induced_porosity_change =
+ chemically_induced_porosity_change,
+ use_server_communication = use_server_communication,
+ phasefield_model = phasefield_model,
+ irreversible_threshold = irreversible_threshold,
+ tabular_file = tabular_file,
+ temperature_field = temperature_field,
+ use_stokes_brinkman_form = use_stokes_brinkman_form,
xpath = "processes/process",
attr_names = c("secondary_variable"),
flatten_on_exp = c("specific_body_force"),
@@ -985,7 +1034,7 @@ new_prj_jacobian_assembler <- function(type,
prj_phasefield_parameters <- function(residual_stiffness,
crack_resistance,
crack_length_scale,
- kinetic_coefficient,
+ kinetic_coefficient = NULL,
history_field = NULL) {
# Add coercing utility here
@@ -1001,15 +1050,15 @@ prj_phasefield_parameters <- function(residual_stiffness,
new_prj_phasefield_parameters <- function(residual_stiffness,
crack_resistance,
crack_length_scale,
- kinetic_coefficient,
+ kinetic_coefficient = NULL,
history_field = NULL) {
are_strings(residual_stiffness,
crack_resistance,
- crack_length_scale,
- kinetic_coefficient)
+ crack_length_scale)
- are_null_or_strings(history_field)
+ are_null_or_strings(kinetic_coefficient,
+ history_field)
structure(list(residual_stiffness = residual_stiffness,
crack_resistance = crack_resistance,
@@ -1094,6 +1143,7 @@ validate_process_variables <- function(process_variables){
"gas_pressure",
"capillary_pressure",
"liquid_pressure",
+ "liquid_velocity",
"overall_mass_density")
for(i in seq_len(length(process_variables))){
diff --git a/R/prj_time_loop.R b/R/prj_time_loop.R
index 17a728e..5346cba 100644
--- a/R/prj_time_loop.R
+++ b/R/prj_time_loop.R
@@ -141,6 +141,7 @@ new_prj_tl_process <- function(ref,
#' @param output_iteration_results Optional: string: Either "true" or "false"
#' @param meshes Optional: character: A vector of mesh names
#' @param fixed_output_times Optional: string | numeric:
+#' @param hdf Optional: numeric
#' @example man/examples/ex_prj_output.R
#' @export
prj_output <- function(type,
@@ -152,7 +153,8 @@ prj_output <- function(type,
data_mode = NULL,
output_iteration_results = NULL,
meshes = NULL,
- fixed_output_times = NULL) {
+ fixed_output_times = NULL,
+ hdf = NULL) {
#Coerce input
fixed_output_times <- coerce_string_to_numeric(fixed_output_times)
@@ -170,7 +172,8 @@ prj_output <- function(type,
data_mode,
output_iteration_results,
meshes,
- fixed_output_times)
+ fixed_output_times,
+ hdf)
}
@@ -183,7 +186,8 @@ new_prj_output <- function(type,
data_mode = NULL,
output_iteration_results = NULL,
meshes = NULL,
- fixed_output_times = NULL) {
+ fixed_output_times = NULL,
+ hdf = NULL) {
assertthat::assert_that(assertthat::is.string(type))
assertthat::assert_that(assertthat::is.string(prefix))
@@ -218,6 +222,7 @@ new_prj_output <- function(type,
output_iteration_results = output_iteration_results,
meshes = meshes,
fixed_output_times = fixed_output_times,
+ hdf = hdf,
xpath = "time_loop/output",
attr_names = character(),
flatten_on_exp = c("fixed_output_times")
diff --git a/R/sim_utils.R b/R/sim_utils.R
index 3b0e424..3085e99 100644
--- a/R/sim_utils.R
+++ b/R/sim_utils.R
@@ -374,7 +374,7 @@ run_all_benchmarks <- function(path,
# Filter nonexisting files from prj_paths
- nonexisting_prj_paths <- prj_paths[!file.exists(prj_paths)]
+ nonexisting_prj_paths <- prj_paths[!file.exists(unlist(prj_paths))]
prj_paths <- prj_paths[!prj_paths %in% nonexisting_prj_paths]
diff --git a/data/xpaths_for_classes.rda b/data/xpaths_for_classes.rda
index f0fc9f1b5cbfad31485df45ec0b2dd445880ec11..bc7d290fafb42ee7f1b21dbdde5f385f4fbf65c5 100644
GIT binary patch
literal 1064
zcmV+@1lRjQT4*^jL0KkKSxKI*umA#-e}Mmg|NMTVvIyK{kU+ox|KI=tPz24qYKl=*
zE--2t6gH&wH8Ko<XaS+8s0NK1Y2^TZrh*8m>Ex&BCWe}NfB*mh000005+a#Q5YUZH
z8fY{C8UO$^0ilrNCQS@RCX50w69@wVG|{F;fMF6O1cOPbj6~Bw05sE0G&BGMMuoCU
zAtVRL@Il4#^PY$;O0_v$=4n0AoXZwSFiNZDcwKLf`cf#|Ms$$6dZ7XL=G{Ol%p`zY
zTNKDP{L-;}f*@>MVMdc8K&0FirG|kDcxe_^?dkv;Evi}5w!7iDF7vq=r5QtMi4Jt`
zhzt-y;3-U7fC&D7O(2ED2X)(WiYIIJrulLwE)J3yi<rXV*kuB;l1eED3M-X?B^eey
zH|Jn|SZ#a%FUiVUat2Qp^eBP#9L<HCWC<8tZDX+t0$C!Gi1rW=kLb%)u+z~(ZFlQ{
zuOga~r~`uZ>Nb>9Zv-cyY$6m=<{CPlhcTt}9CJ(-av{Vsb_2SQ^r6i2x+AGsF6RSB
zly7Xtj?>{`*oI^e%Y+#?hD2Jqz%_CKVa$Vyzi(d)^;wAUX{MV@ZJ@-IiJujQM#ZHw
z&Q5a!={T9T3D(}d?&oFW7{%iRk`#6YuW$=92ttg^nhXbHxEh^{qnM4EX1a9ABFM~w
zrKv&J7IOrozd06CW@bijkQM_$3y>|VK-zNeSCydX7U#?Y@-?b(d4rM%zG`$h#DtP$
zm^BJR7@L-CZgRvTIjt?5EZ2y|dJVAhq2D=+O$|(F7%B+bRJaYq=-axSS~J|6O__)l
z#+R(2d=aoru!I#lHL|LD+<T<uGk_aCI0K<GO5z1mb4Cu4?)cfMRW0T1wFc;7BVR*!
z$cdS4v5H7cRC%<4gK;ws_n+kczi-2R;y{BT+a3#c(a5|da!^X7%<|yCS<K|%2(Sx7
z1zWDYyTc6gBxr>c8y#<13ITj1I#<9ZUIs4WN3DAsur>l4fwBix9rfQXNl=wlf|M<K
z?=Avmd;5Bc3LrEQR>7hm8fQQ(R?8BiBtk`?pi@Y}gVT6<B4XWIINyH0tr62BNV9i7
z&4qk)%S)!b=gXy9*t8Ik5TYTwmp(Y<owGtsm_iuxePL?e8FNiwAw(zu!Y+bmz0d%@
z0uaoO6Sy=f41$&!NNDDnp%D4QGs%#tg~32B<Uq+>0_^BMOP)fRRV4*JT}m-@-U=9C
zF2a#~bRKO{q%~h3Jr=--o16}OkdkhoX2c)S3>lHph;3|vd9OG{q%t9)^k8F#+u`Oi
zFAo&)Y5sbA-Y#ApnYH7d95W+Qkg($`2Ek@1R3ON0v^2tX8$NUX!Y5J~avd8-yl7yv
ikqsS)IVJ$q*`lV@9?OIk7AQE+_`8xR!i0iM^>u)X*V?fF
literal 1062
zcmV+>1ljvST4*^jL0KkKSyrV^VgLe%|A7C0|NMTVvIyK{kU+ox|KI=tPz24qYL!$G
zE@qU&O)6|gqGTA24FCa?A*N4IKT2p1)C3Vz)6j{C8fobnGynh$O#lD@0z^rvs(wPB
zsigFtr<4Ey9-*e5p`oUY1Jpes#!Q+Rj7=B>U?va-0%@a6jR3+W0yL8dN$H51XaF<=
zKx6<1sL-{M2?zjr0gpfv*W>3*BDqy^wOHoKjJ8)TEYWZ~Z^ZBDTdwOYu$K{#5W5&c
zLHFm*0IM*N0^e;RpjmKYQl>!3AxaDjDIBL22qsODL6TSqqN$i-pzDwg*3Bh)v#!>3
zg6%j)YeMk6w49TW0KpX@7LgPm&*`F|RscJfI}|8RkJgQM-fyweLeX$AtXhTOQu0Yc
zh&E}CRtYR*QS@%e!22-iy<DG@acQ(Lc-zXN2cXKNDsquwSk+^a6arL{NkToP0*U?*
zwOb85wi9c+GzE64sVcx67bj7$f)uOJPUWaXC{b`4I-Sl2gWPh$SgFjsgAPFNq&*05
zc)BC0ORmP_M|jsb8XXUfhLjZ;a^A$=0bs=v?+aCcB+hib73S@Gwo{m!qZr7-NQW_1
zD_@SsBc<Y)#GFeHpunn-M^R0>xHQcvN=+y>*#?l5xB!x%#!$g_fne=+15>qha3fOq
zUOZ}4c^Uyy(Lvo7LiD7&Ar!J^W=3itC<+0oQlh9CoA#w|R2>4YH~_rOHBHY2_l*vB
zg`^~s>0?l$+S6jDO^xwlI9d%%tk;mmdCb|~2ZZ2NG&L=tZf+-0gCKXAc_wf1aNm|j
zLqda-jOZ?HLNx@vkcg)~wJAyJa_^IQh^}6n0nV6QlpG!I8>Q*y`|Zx*bT5UdGlnr4
zwCFG*W?N~EA+gdL%ZY^xgj6+g^M3X6U2{VQCd}fzQz{H;Uh%nV8irKjp+J)=u}}t+
z0#cz8t+zbUGPN62Awq$ZvFss07sf-Sd_rHu#n?#pFKb$XkRh-cK<lC5UjdbFRl~We
zJslev0%d%BJH&;E45U@CZLrL;5joZ*pqA1V!huBsdHpyCkvqm5lVE*_NkbgPr`-Cw
ziuoZd8&j#TmWiwi;GzIflAQVU<dR#i(H3pSG0B_j&C_AeqNPw!lpsFS+ZW02`~Z1E
zCYnqhM#hB@xKUww4ICyAh<w3==ej9nu|OAMAYEGs<zg2Mz8Fp+xKOyQAf&>Y5GGJ2
zLJ*g#1M1ZpA*%emXjOp`Ha8q@gp*|h3_<+>v4T1<4Aqb;h2jxt1;}W5Y%NhroAwqH
zMS?Zr{_feYcW-|dY<VHWFgKKi4pOjmj)lwx4n&e9U{13ynE$Ma)`gpnjZyF#7AkWg
gqmm8Na7MP_gQ<SZh+uhuV;|z~NT&)C3e>60K=0PwPXGV_
--
GitLab