From e900df009ffe1a98945d5a351f816ee757ff487a Mon Sep 17 00:00:00 2001 From: "Matthew L. Fidler" Date: Fri, 12 Apr 2024 18:40:17 -0500 Subject: [PATCH] Bug fix for vpcPlot() --- DESCRIPTION | 2 +- NEWS.md | 5 +++++ R/vpcPlot.R | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 91390d5..dcb1426 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: nlmixr2plot Title: Nonlinear Mixed Effects Models in Population PK/PD, Plot Functions -Version: 2.0.8 +Version: 2.0.9 Authors@R: c( person("Matthew", "Fidler", email="matthew.fidler@gmail.com", role = c("aut", "cre"), comment = c(ORCID = "0000-0001-8538-6691")), diff --git a/NEWS.md b/NEWS.md index 2c8bee5..cb2575d 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,8 @@ +# nlmixr2plot 2.0.9 + +* Bug fix for `vpcPlot()` where input data frame for models did not + stratify all the time when the columns were upper case. + # nlmixr2plot 2.0.8 * `plot()` now returns a named list of lists so that users can more easily diff --git a/R/vpcPlot.R b/R/vpcPlot.R index f9a7087..f7ebaff 100644 --- a/R/vpcPlot.R +++ b/R/vpcPlot.R @@ -258,7 +258,7 @@ vpcCens <- function(..., cens=TRUE, idv="time") { .obs <- .obs[which(tolower(names(.obs)) != "cens")] } list(namesObs=.no, - namesObsLower=.nol, + namesObsLower=tolower(.nol), obs=.obs, obsCols=.obsCols) }