Styler

Author: PavelBal

R/utilities-plots.R

@@ -206,12 +206,12 @@ getPlotConfigurationFromPlan <- function(plotProperties, plotType = NULL, legend
   }
   width <- ifNotNull(
     plotProperties$FontAndSize$ChartWidth,
-    plotProperties$FontAndSize$ChartWidth/reEnv$defaultPlotFormat$dpi,
+    plotProperties$FontAndSize$ChartWidth / reEnv$defaultPlotFormat$dpi,
     defaultWidth
   )
   height <- ifNotNull(
     plotProperties$FontAndSize$ChartHeight,
-    plotProperties$FontAndSize$ChartHeight/reEnv$defaultPlotFormat$dpi,
+    plotProperties$FontAndSize$ChartHeight / reEnv$defaultPlotFormat$dpi,
     defaultHeight
   )
   # Get dimensions of exported based on legend position and default/specific plot properties

R/utilities-reportingengine-env.R

@@ -30,8 +30,8 @@ setDefaultPlotFormat <- function(format = NULL, width = NULL, height = NULL, uni
   # add legend space to plot dimensions does not support pixels as units
   if (isIncluded(units, "px")) {
     units <- "in"
-    reEnv$defaultPlotFormat$width <- reEnv$defaultPlotFormat$width/reEnv$defaultPlotFormat$dpi
-    reEnv$defaultPlotFormat$height <- reEnv$defaultPlotFormat$height/reEnv$defaultPlotFormat$dpi
+    reEnv$defaultPlotFormat$width <- reEnv$defaultPlotFormat$width / reEnv$defaultPlotFormat$dpi
+    reEnv$defaultPlotFormat$height <- reEnv$defaultPlotFormat$height / reEnv$defaultPlotFormat$dpi
   }
   reEnv$defaultPlotFormat$units <- units %||% reEnv$defaultPlotFormat$units
   tlf::setDefaultExportParameters(

tests/dev/script-template-user-defined-function.R

@@ -76,7 +76,6 @@ plotAUCRatios <- function(structureSets,
                           workflowType = PopulationWorkflowTypes$parallelComparison,
                           xParameters,
                           yParameters) {
-
   # Recover the PK parameters from calculatePKParameters task
   pkParametersAcrossPopulations <- getPkParametersAcrossPopulations(structureSets)
   pkParametersDataAcrossPopulations <- pkParametersAcrossPopulations$data

tests/testthat/test-gof.R

@@ -1,49 +1,49 @@
 # GOF MetaData are lists the fields defined below
 testMetaDataA <- list(
-    Time = list(dimension = "Time", unit = "h"),
-    Concentration = list(dimension = "Concentration (mass)", unit = "mg/L"),
-    Path = "Test|Path|A",
-    legend = "Test Legend A",
-    residualsLegend = "Test Residuals Legend A",
-    residualScale = ResidualScales$Logarithmic,
-    group = "Group 1",
-    color = "red",
-    fill = "red"
+  Time = list(dimension = "Time", unit = "h"),
+  Concentration = list(dimension = "Concentration (mass)", unit = "mg/L"),
+  Path = "Test|Path|A",
+  legend = "Test Legend A",
+  residualsLegend = "Test Residuals Legend A",
+  residualScale = ResidualScales$Logarithmic,
+  group = "Group 1",
+  color = "red",
+  fill = "red"
 )
 testMetaDataB <- list(
-    Time = list(dimension = "Time", unit = "h"),
-    Concentration = list(dimension = "Concentration (mass)", unit = "mg/L"),
-    Path = "Test|Path|B",
-    legend = "Test Legend B",
-    residualsLegend = "Test Residuals Legend B",
-    residualScale = ResidualScales$Logarithmic,
-    group = "Group 1",
-    color = "blue",
-    fill = "blue"
+  Time = list(dimension = "Time", unit = "h"),
+  Concentration = list(dimension = "Concentration (mass)", unit = "mg/L"),
+  Path = "Test|Path|B",
+  legend = "Test Legend B",
+  residualsLegend = "Test Residuals Legend B",
+  residualScale = ResidualScales$Logarithmic,
+  group = "Group 1",
+  color = "blue",
+  fill = "blue"
 )
 # Group C: different residuals scale
 testMetaDataC <- list(
-    Time = list(dimension = "Time", unit = "h"),
-    Concentration = list(dimension = "Concentration (mass)", unit = "mg/L"),
-    Path = "Test|Path|C",
-    legend = "Test Legend C",
-    residualsLegend = "Test Residuals Legend C",
-    residualScale = ResidualScales$Linear,
-    group = "Group 1",
-    color = "green",
-    fill = "green"
+  Time = list(dimension = "Time", unit = "h"),
+  Concentration = list(dimension = "Concentration (mass)", unit = "mg/L"),
+  Path = "Test|Path|C",
+  legend = "Test Legend C",
+  residualsLegend = "Test Residuals Legend C",
+  residualScale = ResidualScales$Linear,
+  group = "Group 1",
+  color = "green",
+  fill = "green"
 )
 # Group D: different dimension/unit
 testMetaDataD <- list(
-    Time = list(dimension = "Time", unit = "h"),
-    Concentration = list(dimension = "Fraction", unit = ""),
-    Path = "Test|Path|D",
-    legend = "Test Legend D",
-    residualsLegend = "Test Residuals Legend D",
-    residualScale = ResidualScales$Logarithmic,
-    group = "Group 1",
-    color = "yellow",
-    fill = "yellow"
+  Time = list(dimension = "Time", unit = "h"),
+  Concentration = list(dimension = "Fraction", unit = ""),
+  Path = "Test|Path|D",
+  legend = "Test Legend D",
+  residualsLegend = "Test Residuals Legend D",
+  residualScale = ResidualScales$Logarithmic,
+  group = "Group 1",
+  color = "yellow",
+  fill = "yellow"
 )
 # Group D: different dimension/unit, scale and group
 testMetaDataE <- list(
@@ -87,5 +87,3 @@ test_that("getOutputGroups warns appropriately about meta data consistency withi
   expect_warning(ospsuite.reportingengine:::getOutputGroups(unitMetaDataFrame))
   expect_warning(ospsuite.reportingengine:::getOutputGroups(scaleMetaDataFrame))
 })
-
-

tests/testthat/test-lloq.R

@@ -32,7 +32,7 @@ defineExpectedTimeProfileData <- parse(text = paste0(
   c("All-Obs", "lloq", "All-Obs"), '-timeProfileData.csv")'
 ))
 defineExpectedResidualsData <- parse(text = paste0(
-  "expectedResidualsData", scenarios, ' <- getTestDataFilePath("mean-gof/', 
+  "expectedResidualsData", scenarios, ' <- getTestDataFilePath("mean-gof/',
   c("All-Obs", "lloq", "All-Obs"), '-residuals.csv")'
 ))
 

tests/testthat/test-observed-data.R

@@ -56,7 +56,7 @@ test_that("readObservedDataFile: throws an error for unexistant files", {
 test_that("readObservedDataFile throws an error for non UTF-8 files", {
   expect_error(
     readObservedDataFile(getTestDataFilePath("input-data/non-utf8.txt"))
-    )
+  )
 })
 
 test_that("readObservedDataFile throw an error if columns are inconsistent", {