Styler

Open-Systems-Pharmacology · May 19, 2021 · d0548e3 · d0548e3
1 parent 810f2d8
commit d0548e3
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 10 deletions.
diff --git a/R/error-checks.R b/R/error-checks.R
@@ -139,9 +139,9 @@ validateIsSameLength <- function(...) {
   stop(messages$errorDifferentLength(arguments))
 }
 
-validatePathIsAbsolute <- function(path){
+validatePathIsAbsolute <- function(path) {
   wildcardChar <- "*"
-  if (any(unlist(strsplit(path, ""), use.names = FALSE) == wildcardChar)){
+  if (any(unlist(strsplit(path, ""), use.names = FALSE) == wildcardChar)) {
     stop(messages$errorEntityPathNotAbsolute(path))
   }
 }
diff --git a/R/messages.R b/R/messages.R
@@ -67,9 +67,11 @@ messages <- list(
   errorPKParameterNotFound = function(pkParameterName, allPKParameterNames) {
     paste0("PK-Parameter '", pkParameterName, "' not found.\nAvailable PK-Parameters are:\n", paste0(allPKParameterNames, collapse = ", "))
   },
-  errorEntityPathNotAbsolute = function(path){
-    paste0("Only absolut paths (i.e. without the wildcard(s) `*`) are allowed, but the passed path is: ",
-           path)
+  errorEntityPathNotAbsolute = function(path) {
+    paste0(
+      "Only absolut paths (i.e. without the wildcard(s) `*`) are allowed, but the passed path is: ",
+      path
+    )
   },
   pkSimRPathInvalid = function(pksimPath) {
     paste0("Path to PKSim.R.dll '", pksimPath, "' is invalid.")

diff --git a/R/utilities-parameter.R b/R/utilities-parameter.R
@@ -120,8 +120,10 @@ setParameterValues <- function(parameters, values) {
 #' setParameterValuesByPath(c("Organism|Liver|Volume", "Organism|Volume"), c(2, 3), sim)
 #' @export
 setParameterValuesByPath <- function(parameterPaths, values, simulation) {
-  setQuantityValuesByPath(quantityPaths = parameterPaths, values = values,
-                          simulation = simulation)
+  setQuantityValuesByPath(
+    quantityPaths = parameterPaths, values = values,
+    simulation = simulation
+  )
 }
 
 #' Scale current values of parameters using a factor

diff --git a/R/utilities-quantity.R b/R/utilities-quantity.R
@@ -118,9 +118,11 @@ setQuantityValuesByPath <- function(quantityPaths, values, simulation) {
   validateIsOfType(simulation, Simulation)
 
   task <- getContainerTask()
-  for (i in seq_along(quantityPaths)){
-    rClr::clrCall(task, "SetValueByPath", simulation$ref,
-                  enc2utf8(quantityPaths[[i]]), values[[i]])
+  for (i in seq_along(quantityPaths)) {
+    rClr::clrCall(
+      task, "SetValueByPath", simulation$ref,
+      enc2utf8(quantityPaths[[i]]), values[[i]]
+    )
   }
 }