Fix desc

nlmixr2 · Dec 8, 2023 · bbbc957 · bbbc957
1 parent 25a6784
commit bbbc957
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 17 deletions.
diff --git a/R/buildParser.R b/R/buildParser.R
@@ -271,7 +271,7 @@
                               sprintf("  if (!exists(\"%s\", envir=x[[1]])) return(NULL)", .name),
                               sprintf("  get(\"%s\", envir=x[[1]])", .name),
                               "}",
-                              sprintf("attr(rxUiGet.%s, \"desc=\") <- %s", .name, deparse1(.desc)))
+                              sprintf("attr(rxUiGet.%s, \"desc\") <- %s", .name, deparse1(.desc)))
                     .ret <- paste(.ret, collapse="\n")
                   }, character(1), USE.NAMES=TRUE),
                   ".rxUiGetRegister <- function() {",

diff --git a/R/rxUiGetGen.R b/R/rxUiGetGen.R
@@ -8,7 +8,7 @@ rxUiGet.nonmemData <- function(x, ...) {
   if (!exists("nonmemData", envir=x[[1]])) return(NULL)
   get("nonmemData", envir=x[[1]])
 }
-attr(rxUiGet.nonmemData, "desc=") <- "NONMEM input data from nonmem2rx"
+attr(rxUiGet.nonmemData, "desc") <- "NONMEM input data from nonmem2rx"
 
 rxUiGet.etaData <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -17,7 +17,7 @@ rxUiGet.etaData <- function(x, ...) {
   if (!exists("etaData", envir=x[[1]])) return(NULL)
   get("etaData", envir=x[[1]])
 }
-attr(rxUiGet.etaData, "desc=") <- "NONMEM etas input from nonmem2rx"
+attr(rxUiGet.etaData, "desc") <- "NONMEM etas input from nonmem2rx"
 
 rxUiGet.ipredAtol <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -26,7 +26,7 @@ rxUiGet.ipredAtol <- function(x, ...) {
   if (!exists("ipredAtol", envir=x[[1]])) return(NULL)
   get("ipredAtol", envir=x[[1]])
 }
-attr(rxUiGet.ipredAtol, "desc=") <- "50th percentile of the IPRED atol comparison between rxode2 and model import"
+attr(rxUiGet.ipredAtol, "desc") <- "50th percentile of the IPRED atol comparison between rxode2 and model import"
 
 rxUiGet.ipredRtol <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -35,7 +35,7 @@ rxUiGet.ipredRtol <- function(x, ...) {
   if (!exists("ipredRtol", envir=x[[1]])) return(NULL)
   get("ipredRtol", envir=x[[1]])
 }
-attr(rxUiGet.ipredRtol, "desc=") <- "50th percentile of the IPRED rtol comparison between rxode2 and model import"
+attr(rxUiGet.ipredRtol, "desc") <- "50th percentile of the IPRED rtol comparison between rxode2 and model import"
 
 rxUiGet.ipredCompare <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -44,7 +44,7 @@ rxUiGet.ipredCompare <- function(x, ...) {
   if (!exists("ipredCompare", envir=x[[1]])) return(NULL)
   get("ipredCompare", envir=x[[1]])
 }
-attr(rxUiGet.ipredCompare, "desc=") <- "Dataset comparing ID, TIME and the IPREDs between rxode2 and model import"
+attr(rxUiGet.ipredCompare, "desc") <- "Dataset comparing ID, TIME and the IPREDs between rxode2 and model import"
 
 rxUiGet.predAtol <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -53,7 +53,7 @@ rxUiGet.predAtol <- function(x, ...) {
   if (!exists("predAtol", envir=x[[1]])) return(NULL)
   get("predAtol", envir=x[[1]])
 }
-attr(rxUiGet.predAtol, "desc=") <- "50th percentile of the PRED atol comparison between rxode2 and model import"
+attr(rxUiGet.predAtol, "desc") <- "50th percentile of the PRED atol comparison between rxode2 and model import"
 
 rxUiGet.predRtol <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -62,7 +62,7 @@ rxUiGet.predRtol <- function(x, ...) {
   if (!exists("predRtol", envir=x[[1]])) return(NULL)
   get("predRtol", envir=x[[1]])
 }
-attr(rxUiGet.predRtol, "desc=") <- "50th percentile of the PRED rtol comparison between rxode2 and model import"
+attr(rxUiGet.predRtol, "desc") <- "50th percentile of the PRED rtol comparison between rxode2 and model import"
 
 rxUiGet.predCompare <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -71,7 +71,7 @@ rxUiGet.predCompare <- function(x, ...) {
   if (!exists("predCompare", envir=x[[1]])) return(NULL)
   get("predCompare", envir=x[[1]])
 }
-attr(rxUiGet.predCompare, "desc=") <- "Dataset comparing ID, TIME and the PREDs between rxode2 and model import"
+attr(rxUiGet.predCompare, "desc") <- "Dataset comparing ID, TIME and the PREDs between rxode2 and model import"
 
 rxUiGet.sigma <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -80,7 +80,7 @@ rxUiGet.sigma <- function(x, ...) {
   if (!exists("sigma", envir=x[[1]])) return(NULL)
   get("sigma", envir=x[[1]])
 }
-attr(rxUiGet.sigma, "desc=") <- "sigma matrix from model import"
+attr(rxUiGet.sigma, "desc") <- "sigma matrix from model import"
 
 rxUiGet.thetaMat <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -89,7 +89,7 @@ rxUiGet.thetaMat <- function(x, ...) {
   if (!exists("thetaMat", envir=x[[1]])) return(NULL)
   get("thetaMat", envir=x[[1]])
 }
-attr(rxUiGet.thetaMat, "desc=") <- "covariance matrix"
+attr(rxUiGet.thetaMat, "desc") <- "covariance matrix"
 
 rxUiGet.dfSub <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -98,7 +98,7 @@ rxUiGet.dfSub <- function(x, ...) {
   if (!exists("dfSub", envir=x[[1]])) return(NULL)
   get("dfSub", envir=x[[1]])
 }
-attr(rxUiGet.dfSub, "desc=") <- "Number of subjects"
+attr(rxUiGet.dfSub, "desc") <- "Number of subjects"
 
 rxUiGet.dfObs <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -107,7 +107,7 @@ rxUiGet.dfObs <- function(x, ...) {
   if (!exists("dfObs", envir=x[[1]])) return(NULL)
   get("dfObs", envir=x[[1]])
 }
-attr(rxUiGet.dfObs, "desc=") <- "Number of observations"
+attr(rxUiGet.dfObs, "desc") <- "Number of observations"
 
 rxUiGet.atol <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -116,7 +116,7 @@ rxUiGet.atol <- function(x, ...) {
   if (!exists("atol", envir=x[[1]])) return(NULL)
   get("atol", envir=x[[1]])
 }
-attr(rxUiGet.atol, "desc=") <- "atol imported from translation"
+attr(rxUiGet.atol, "desc") <- "atol imported from translation"
 
 rxUiGet.rtol <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -125,7 +125,7 @@ rxUiGet.rtol <- function(x, ...) {
   if (!exists("rtol", envir=x[[1]])) return(NULL)
   get("rtol", envir=x[[1]])
 }
-attr(rxUiGet.rtol, "desc=") <- "rtol imported from translation"
+attr(rxUiGet.rtol, "desc") <- "rtol imported from translation"
 
 rxUiGet.ssRtol <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -134,7 +134,7 @@ rxUiGet.ssRtol <- function(x, ...) {
   if (!exists("ssRtol", envir=x[[1]])) return(NULL)
   get("ssRtol", envir=x[[1]])
 }
-attr(rxUiGet.ssRtol, "desc=") <- "ssRtol imported from translation"
+attr(rxUiGet.ssRtol, "desc") <- "ssRtol imported from translation"
 
 rxUiGet.ssAtol <- function(x, ...) {
   .meta <- new.env(parent=emptyenv())
@@ -143,7 +143,7 @@ rxUiGet.ssAtol <- function(x, ...) {
   if (!exists("ssAtol", envir=x[[1]])) return(NULL)
   get("ssAtol", envir=x[[1]])
 }
-attr(rxUiGet.ssAtol, "desc=") <- "ssRtol imported from translation"
+attr(rxUiGet.ssAtol, "desc") <- "ssRtol imported from translation"
 .rxUiGetRegister <- function() {
   rxode2::.s3register("rxode2::rxUiGet", "nonmemData")
   rxode2::.s3register("rxode2::rxUiGet", "etaData")