diff --git a/R/utilities-mass-balance.R b/R/utilities-mass-balance.R index ccc5e270..327d44eb 100644 --- a/R/utilities-mass-balance.R +++ b/R/utilities-mass-balance.R @@ -32,7 +32,7 @@ plotMeanMassBalance <- function(structureSet, settings = NULL) { for (plotSettings in massBalanceSettings) { compoundNames <- as.character(plotSettings$Molecules) # Sub section using settings name - if(!isEmpty(plotSettings$Name)){ + if (!isEmpty(plotSettings$Name)) { sectionId <- defaultFileNames$resultID(length(massBalanceResults) + 1, "mass_balance") massBalanceResults[[sectionId]] <- saveTaskResults( id = sectionId, @@ -198,7 +198,7 @@ plotMeanMassBalance <- function(structureSet, settings = NULL) { "mass_balance", structureSet$simulationSet$simulationSetName ) - + pieChartData <- massBalanceData %>% filter(Time == max(Time)) %>% mutate(LegendWithPercent = paste( @@ -227,10 +227,10 @@ plotMeanMassBalance <- function(structureSet, settings = NULL) { id = pieChartID, plot = pieChartPlot, plotCaption = captions$massBalance$pieChart( - timeCaption, + timeCaption, metaData$Time$unit, compoundNames - ) + ) ) # Table of mass balance time profiles @@ -326,9 +326,9 @@ getMassBalanceDataMapping <- function(plotType) { } #' @title getApplicationResults -#' @description Get a data.frame of application results corresponding to +#' @description Get a data.frame of application results corresponding to #' total drug mass as a function of time. -#' @param applications +#' @param applications #' list of `Application` objects queried by the method `simulation$allApplicationsFor()` #' @return A data.frame that includes `time`, `drugMass` and `totalDrugMass` as variables #' @import ospsuite @@ -339,13 +339,13 @@ getApplicationResults <- function(applications) { applicationResults <- data.frame() for (application in applications) { applicationResults <- rbind.data.frame( - applicationResults, - data.frame( - time = application$startTime$value, - drugMass = application$drugMass$value - ) + applicationResults, + data.frame( + time = application$startTime$value, + drugMass = application$drugMass$value ) - } + ) + } # Total drug mass is cumulative sum of all the applied drug mass applicationResults <- applicationResults %>% mutate(totalDrugMass = cumsum(drugMass)) @@ -376,25 +376,27 @@ getMassBalanceData <- function(groupings, compoundNames, simulation, simulationR # Exclusion criteria excludedMoleculePaths <- NULL # If ExcludePreviousGroupings is TRUE, exclude molecules from previous groupings - if(group$ExcludePreviousGroupings %||% TRUE){ + if (group$ExcludePreviousGroupings %||% TRUE) { excludedMoleculePaths <- previouslyIncludedMoleculePaths } if (!is.null(group$Exclude)) { excludedMolecules <- ospsuite::getAllMoleculesMatching(group$Exclude, simulation) excludedMoleculePaths <- c( excludedMoleculePaths, - sapply(excludedMolecules, function(molecule){molecule$path}) + sapply(excludedMolecules, function(molecule) { + molecule$path + }) ) } includedMolecules <- includedMolecules[!includedMoleculePaths %in% excludedMoleculePaths] includedMoleculePaths <- setdiff(includedMoleculePaths, excludedMoleculePaths) - if(isEmpty(includedMoleculePaths)) { + if (isEmpty(includedMoleculePaths)) { warning(messages$noMoleculePathsIncluded(group$Name), call. = FALSE) next } validateMoleculesFromCompounds(includedMolecules, compoundNames) checkMoleculesAlreadyIncluded(includedMoleculePaths, previouslyIncludedMoleculePaths) - + previouslyIncludedMoleculePaths <- c( previouslyIncludedMoleculePaths, includedMoleculePaths @@ -408,7 +410,7 @@ getMassBalanceData <- function(groupings, compoundNames, simulation, simulationR } ) moleculeAmounts <- rowSums(as.data.frame(moleculeAmounts)) - + massBalanceData <- rbind.data.frame( massBalanceData, data.frame( @@ -424,7 +426,7 @@ getMassBalanceData <- function(groupings, compoundNames, simulation, simulationR #' @title defaultMassBalanceGrouping #' @description Get mass balance default inclusion/exclusion defined as groupings list -#' Default groups are +#' Default groups are #' \itemize{ #' \item Plasma #' \item BloodCells @@ -440,9 +442,8 @@ getMassBalanceData <- function(groupings, compoundNames, simulation, simulationR #' @import ospsuite #' @keywords internal defaultMassBalanceGroupings <- function(compoundNames) { - groupNames <- c( - "Plasma", + "Plasma", "BloodCells", "Interstitial", "Intracellular", @@ -450,8 +451,8 @@ defaultMassBalanceGroupings <- function(compoundNames) { "Gallbladder", "Urine", "Feces" - ) - + ) + defaultGroupings <- c( lapply( groupNames, diff --git a/man/CalculatePKParametersTask.Rd b/man/CalculatePKParametersTask.Rd index 9b5a06a2..4e9d409a 100644 --- a/man/CalculatePKParametersTask.Rd +++ b/man/CalculatePKParametersTask.Rd @@ -8,7 +8,7 @@ R6 class for defining how pk parameters are calculated and save } \keyword{internal} \section{Super classes}{ -\code{ospsuite.reportingengine::Task} -> \code{ospsuite.reportingengine::SimulationTask} -> \code{CalculatePKParametersTask} +\code{\link[ospsuite.reportingengine:Task]{ospsuite.reportingengine::Task}} -> \code{\link[ospsuite.reportingengine:SimulationTask]{ospsuite.reportingengine::SimulationTask}} -> \code{CalculatePKParametersTask} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/GofPlotTask.Rd b/man/GofPlotTask.Rd index 05956913..be247a99 100644 --- a/man/GofPlotTask.Rd +++ b/man/GofPlotTask.Rd @@ -32,7 +32,7 @@ Other workflow tasks: } \concept{workflow tasks} \section{Super classes}{ -\code{ospsuite.reportingengine::Task} -> \code{ospsuite.reportingengine::PlotTask} -> \code{GofPlotTask} +\code{\link[ospsuite.reportingengine:Task]{ospsuite.reportingengine::Task}} -> \code{\link[ospsuite.reportingengine:PlotTask]{ospsuite.reportingengine::PlotTask}} -> \code{GofPlotTask} } \section{Methods}{ \subsection{Public methods}{ diff --git a/man/GofTaskSettings.Rd b/man/GofTaskSettings.Rd index b4e588d3..f37803b2 100644 --- a/man/GofTaskSettings.Rd +++ b/man/GofTaskSettings.Rd @@ -39,7 +39,7 @@ workflow$plotTimeProfilesAndResiduals$settings$getStatistics() } \keyword{internal} \section{Super class}{ -\code{ospsuite.reportingengine::TaskSettings} -> \code{GofTaskSettings} +\code{\link[ospsuite.reportingengine:TaskSettings]{ospsuite.reportingengine::TaskSettings}} -> \code{GofTaskSettings} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/MeanModelWorkflow.Rd b/man/MeanModelWorkflow.Rd index 4c6a11f7..341fb0fa 100644 --- a/man/MeanModelWorkflow.Rd +++ b/man/MeanModelWorkflow.Rd @@ -13,7 +13,7 @@ Other workflows: } \concept{workflows} \section{Super class}{ -\code{ospsuite.reportingengine::Workflow} -> \code{MeanModelWorkflow} +\code{\link[ospsuite.reportingengine:Workflow]{ospsuite.reportingengine::Workflow}} -> \code{MeanModelWorkflow} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/PlotTask.Rd b/man/PlotTask.Rd index 9b2d86bf..42ed480d 100644 --- a/man/PlotTask.Rd +++ b/man/PlotTask.Rd @@ -32,7 +32,7 @@ Other workflow tasks: } \concept{workflow tasks} \section{Super class}{ -\code{ospsuite.reportingengine::Task} -> \code{PlotTask} +\code{\link[ospsuite.reportingengine:Task]{ospsuite.reportingengine::Task}} -> \code{PlotTask} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/PopulationPlotTask.Rd b/man/PopulationPlotTask.Rd index 357d6ac2..7e6fc2d0 100644 --- a/man/PopulationPlotTask.Rd +++ b/man/PopulationPlotTask.Rd @@ -32,7 +32,7 @@ Other workflow tasks: } \concept{workflow tasks} \section{Super classes}{ -\code{ospsuite.reportingengine::Task} -> \code{ospsuite.reportingengine::PlotTask} -> \code{PopulationPlotTask} +\code{\link[ospsuite.reportingengine:Task]{ospsuite.reportingengine::Task}} -> \code{\link[ospsuite.reportingengine:PlotTask]{ospsuite.reportingengine::PlotTask}} -> \code{PopulationPlotTask} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/PopulationSensitivityAnalysisTask.Rd b/man/PopulationSensitivityAnalysisTask.Rd index f277871f..c20a58ac 100644 --- a/man/PopulationSensitivityAnalysisTask.Rd +++ b/man/PopulationSensitivityAnalysisTask.Rd @@ -32,7 +32,7 @@ Other workflow tasks: } \concept{workflow tasks} \section{Super classes}{ -\code{ospsuite.reportingengine::Task} -> \code{ospsuite.reportingengine::SensitivityAnalysisTask} -> \code{PopulationSensitivityAnalysisTask} +\code{\link[ospsuite.reportingengine:Task]{ospsuite.reportingengine::Task}} -> \code{\link[ospsuite.reportingengine:SensitivityAnalysisTask]{ospsuite.reportingengine::SensitivityAnalysisTask}} -> \code{PopulationSensitivityAnalysisTask} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/PopulationSimulationSet.Rd b/man/PopulationSimulationSet.Rd index cd398618..69127fd4 100644 --- a/man/PopulationSimulationSet.Rd +++ b/man/PopulationSimulationSet.Rd @@ -7,7 +7,7 @@ R6 class representing Reporting Engine Population Model Set } \section{Super class}{ -\code{ospsuite.reportingengine::SimulationSet} -> \code{PopulationSimulationSet} +\code{\link[ospsuite.reportingengine:SimulationSet]{ospsuite.reportingengine::SimulationSet}} -> \code{PopulationSimulationSet} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/PopulationWorkflow.Rd b/man/PopulationWorkflow.Rd index 02b9d278..76fc9850 100644 --- a/man/PopulationWorkflow.Rd +++ b/man/PopulationWorkflow.Rd @@ -13,7 +13,7 @@ Other workflows: } \concept{workflows} \section{Super class}{ -\code{ospsuite.reportingengine::Workflow} -> \code{PopulationWorkflow} +\code{\link[ospsuite.reportingengine:Workflow]{ospsuite.reportingengine::Workflow}} -> \code{PopulationWorkflow} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/QualificationTask.Rd b/man/QualificationTask.Rd index bf1a7e22..71b8df58 100644 --- a/man/QualificationTask.Rd +++ b/man/QualificationTask.Rd @@ -32,7 +32,7 @@ Other workflow tasks: } \concept{workflow tasks} \section{Super classes}{ -\code{ospsuite.reportingengine::Task} -> \code{ospsuite.reportingengine::PlotTask} -> \code{QualificationTask} +\code{\link[ospsuite.reportingengine:Task]{ospsuite.reportingengine::Task}} -> \code{\link[ospsuite.reportingengine:PlotTask]{ospsuite.reportingengine::PlotTask}} -> \code{QualificationTask} } \section{Methods}{ \subsection{Public methods}{ diff --git a/man/QualificationWorkflow.Rd b/man/QualificationWorkflow.Rd index 476cd45c..95d5de8d 100644 --- a/man/QualificationWorkflow.Rd +++ b/man/QualificationWorkflow.Rd @@ -13,7 +13,7 @@ Other workflows: } \concept{workflows} \section{Super class}{ -\code{ospsuite.reportingengine::Workflow} -> \code{QualificationWorkflow} +\code{\link[ospsuite.reportingengine:Workflow]{ospsuite.reportingengine::Workflow}} -> \code{QualificationWorkflow} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/SensitivityAnalysisTask.Rd b/man/SensitivityAnalysisTask.Rd index 4d9c8e74..0519313c 100644 --- a/man/SensitivityAnalysisTask.Rd +++ b/man/SensitivityAnalysisTask.Rd @@ -32,7 +32,7 @@ Other workflow tasks: } \concept{workflow tasks} \section{Super class}{ -\code{ospsuite.reportingengine::Task} -> \code{SensitivityAnalysisTask} +\code{\link[ospsuite.reportingengine:Task]{ospsuite.reportingengine::Task}} -> \code{SensitivityAnalysisTask} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/SimulationTask.Rd b/man/SimulationTask.Rd index 9ffd3656..49160e85 100644 --- a/man/SimulationTask.Rd +++ b/man/SimulationTask.Rd @@ -8,7 +8,7 @@ R6 class for SimulationTask settings } \keyword{internal} \section{Super class}{ -\code{ospsuite.reportingengine::Task} -> \code{SimulationTask} +\code{\link[ospsuite.reportingengine:Task]{ospsuite.reportingengine::Task}} -> \code{SimulationTask} } \section{Public fields}{ \if{html}{\out{
}} diff --git a/man/defaultMassBalanceGroupings.Rd b/man/defaultMassBalanceGroupings.Rd index 9dbac988..3a4f06c3 100644 --- a/man/defaultMassBalanceGroupings.Rd +++ b/man/defaultMassBalanceGroupings.Rd @@ -11,7 +11,7 @@ defaultMassBalanceGroupings(compoundNames) } \description{ Get mass balance default inclusion/exclusion defined as groupings list -Default groups are +Default groups are \itemize{ \item Plasma \item BloodCells diff --git a/man/getApplicationResults.Rd b/man/getApplicationResults.Rd index cb5cfbc2..a361694c 100644 --- a/man/getApplicationResults.Rd +++ b/man/getApplicationResults.Rd @@ -13,7 +13,7 @@ getApplicationResults(applications) A data.frame that includes `time`, `drugMass` and `totalDrugMass` as variables } \description{ -Get a data.frame of application results corresponding to +Get a data.frame of application results corresponding to total drug mass as a function of time. } \keyword{internal}