NMrelate now respects par.type

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: NMdata
 Type: Package
 Title: Preparation, Checking and Post-Processing Data for PK/PD Modeling
-Version: 0.1.8.905
+Version: 0.1.8.906
 Authors@R:
   c(person(given="Philip", family="Delff",
      email = "philip@delff.dk",

NEWS.md

@@ -12,6 +12,8 @@
 * `NMwriteSection()` would fail if the first section in a control
   stream was modified.
 
+* `NMrelate()` was ignoring the `par.type` argument.
+
 # NMdata 0.1.8
 
 ## New features

R/NMrelate.R

@@ -29,7 +29,6 @@
 NMrelate <- function(file,lines,modelname,par.type,col.model,sections,as.fun){
 
     text <- NULL
-    par.type <- NULL
 
     if(missing(file)) file <- NULL
     if(missing(lines)) lines <- NULL
@@ -46,7 +45,7 @@ NMrelate <- function(file,lines,modelname,par.type,col.model,sections,as.fun){
 
 
     lines <- getLines(file=file,lines=lines,col.model=col.model,modelname=modelname,as.one=TRUE)
-
+    
     list.relate <- lapply(par.type,function(tp) {
         lines[,NMrelateOne(lines=text,par.type=tp,as.fun="data.table"),by=col.model]
     })

R/zzz.R

@@ -7,5 +7,5 @@ NMdataConf(reset=TRUE)
 
 ##' @importFrom utils packageVersion
 .onAttach <- function(libname,pkgname){
-    packageStartupMessage(paste0("NMdata ",packageVersion("NMdata"),". Browse NMdata documentation at\nhttps://nmautoverse.github.io/NMdata/"))
+    packageStartupMessage(paste0("NMdata ",packageVersion("NMdata"),". Browse NMdata documentation at\nhttps://NMautoverse.github.io/NMdata/"))
 }