small but necessary addParType bugfix

NMautoverse · Aug 20, 2024 · c4f20bd · c4f20bd
1 parent b60f8e9
commit c4f20bd
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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 ####
Original file line number	Diff line number	Diff line change
Expand Up		@@ -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 ####

Expand Down