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

[base] Cleanup NAMESPACE, deleted unused files

parent 1a24f7fe
No related branches found
No related tags found
1 merge request!6Merge branch 7 fixed functionality into master
# Generated by roxygen2: do not edit by hand
export(OGS6)
export(OGS6_Chain)
export(OGS6_Ensemble)
export(generate_benchmark_script)
export(generate_structured_mesh)
......
#This script only contains some tests for parallel computing so far
#System vars
#Check for number of available cores / logical cores (not always reliable on Unix-like systems)
parallel::detectCores()
parallel::detectCores(logical = FALSE)
# output_file_name <- "output.txt"
#
# socket_cluster <- parallel::makeCluster(4, outfile = output_file_name)
#
# parallel::clusterExport(socket_cluster, list("print_pid"))
#
# #parallel::clusterCall(socket_cluster, "Sys.getpid")
#
# parallel::clusterCall(socket_cluster, "print_pid")
#
# parallel::stopCluster(socket_cluster)
#
# read_output(output_file_name, TRUE)
# print_pid <- function(...) {
# #Don't move s construction in cat(), else the file will get all mingled up!
# s <- paste("My process ID is ", Sys.getpid(), "\n")
# cat(s)
# }
#
# read_output <- function(file_name, delete_after_read = FALSE) {
# cat(paste0(readLines(file_name), collapse="\n"))
# if(delete_after_read) {
# if (file.exists(file_name))
# file.remove(file_name)
# }
# }
......@@ -10,15 +10,15 @@ library(r2ogs6)
# If you run this, alter ogs_bin_path below to fit your installation location!
ogs_bin_path <- paste0("D:\\Programme\\OpenGeoSys\\",
ogs_bin_path <- paste0("D:/Programme/OpenGeoSys/",
"ogs-6.3.2-Windows-10.0.14393-x64-python-3.7.2-de-utils",
"\\bin\\")
"/bin/")
#First, we need to create a simulation object.
ogs6_obj <- OGS6$new(sim_name = "my_sim",
sim_id = 1,
sim_path = "D:\\OGS_Sim\\",
sim_path = "D:/OGS_Sim/",
ogs_bin_path = ogs_bin_path)
......@@ -29,11 +29,11 @@ ogs6_obj <- OGS6$new(sim_name = "my_sim",
prj_path <- paste0("inst/extdata/flow_free_expansion/flow_free_expansion.prj")
# Alternative path (also system dependent)
alt_path = paste0("D:\\Programme\\OpenGeoSys\\",
"ogs-master-Tests-Data-HydroMechanics\\",
"Tests\\Data\\HydroMechanics\\IdealGas\\",
"flow_no_strain\\flow_no_strain.prj")
# # Alternative path (also system dependent)
# alt_path = paste0("D:\\Programme\\OpenGeoSys\\",
# "ogs-master-Tests-Data-HydroMechanics\\",
# "Tests\\Data\\HydroMechanics\\IdealGas\\",
# "flow_no_strain\\flow_no_strain.prj")
read_in_prj(ogs6_obj, prj_path)
......@@ -43,4 +43,4 @@ read_in_prj(ogs6_obj, prj_path)
#Calls OGS6 validators, exports all necessary files and starts OpenGeoSys6
run_simulation(ogs6_obj)
e <- run_simulation(ogs6_obj)
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/sim_utils.R
\name{setup_logging}
\alias{setup_logging}
\title{setup_logging}
\usage{
setup_logging(sim_name, sim_path, ogs6_call)
}
\arguments{
\item{sim_name}{string: Simulation name}
\item{sim_path}{string: Simulation path}
\item{ogs6_call}{string: Corresponding OGS6 call}
}
\description{
Sets up logging.
}
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/ogs6_ensemble.R
\name{validate_ensemble_parameters}
\alias{validate_ensemble_parameters}
\title{validate_ensemble_parameters}
\usage{
validate_ensemble_parameters(parameters, ogs6_obj_ref)
}
\arguments{
\item{parameters}{list: The specified parameters}
\item{ogs6_obj_ref}{string: Deparsed argument, for checking if the parameters
came from the same OGS6 object that the OGS6_Ensemble is based on}
}
\description{
Validates the parameters given to an OGS6_Ensemble object
}
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