From c4f20bd14d8acceb8d7d006aac69c49f8109ec9b Mon Sep 17 00:00:00 2001 From: Philip Delff Date: Mon, 19 Aug 2024 23:08:15 -0400 Subject: [PATCH] small but necessary addParType bugfix --- DESCRIPTION | 2 +- R/addParType.R | 2 +- R/mergeCheck.R | 1 - 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 295611b2..ce832fbe 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: NMdata Type: Package Title: Preparation, Checking and Post-Processing Data for PK/PD Modeling -Version: 0.1.6.922 +Version: 0.1.6.923 Authors@R: c(person(given="Philip", family="Delff", email = "philip@delff.dk", diff --git a/R/addParType.R b/R/addParType.R index b2a36ece..089eaf9c 100644 --- a/R/addParType.R +++ b/R/addParType.R @@ -40,7 +40,7 @@ addParType <- function(pars,suffix,add.idx){ ## pars[,(cols):=lapply(.SD,as.integer),.SDcols=cols] } ## par.name - pars[,par.name:=parameter] + pars[,par.name:=get(col.parameter)] pars[get(col.par.type)=="THETA",par.name:=sprintf("THETA(%s)",i)] diff --git a/R/mergeCheck.R b/R/mergeCheck.R index 349a85c3..b3abbb8f 100644 --- a/R/mergeCheck.R +++ b/R/mergeCheck.R @@ -133,7 +133,6 @@ ##' @export mergeCheck <- function(x,y,by,by.x,by.y,common.cols=base::warning,ncols.expect,track.msg=FALSE,quiet,df1,df2,subset.x,fun.na.by=base::stop,as.fun,fun.commoncols,...){ - #### Section start: Dummy variables, only not to get NOTE's in pacakge checks ####