Add rxUiDeparse method for llpControl

NAMESPACE

@@ -15,6 +15,7 @@ S3method(knit_print,nlmixr2FitCore)
 S3method(knit_print,rxUi)
 S3method(print,nlmixr2BoostrapSummary)
 S3method(profile,nlmixr2FitCore)
+S3method(rxUiDeparse,llpControl)
 export(adaptivelassoCoefficients)
 export(addCatCovariates)
 export(addorremoveCovariate)
@@ -45,6 +46,7 @@ export(profileFixed)
 export(profileFixedSingle)
 export(profileLlp)
 export(regularmodel)
+export(rxUiDeparse)
 import(lotri)
 import(utils)
 importFrom(Rcpp,evalCpp)
@@ -56,6 +58,7 @@ importFrom(nlmixr2est,nlmixrWithTiming)
 importFrom(nlmixr2est,setCov)
 importFrom(rxode2,ini)
 importFrom(rxode2,model)
+importFrom(rxode2,rxUiDeparse)
 importFrom(stats,AIC)
 importFrom(stats,approxfun)
 importFrom(stats,cov)

R/profile.R

@@ -422,6 +422,14 @@ llpControl <- function(ofvIncrease = qchisq(0.95, df = 1),
   ret
 }
 
+#' @export
+rxUiDeparse.llpControl <- function(object, var) {
+  .default <- llpControl()
+  .w <- nlmixr2est::.deparseDifferent(.default, object, "genRxControl")
+  nlmixr2est::.deparseFinal(.default, object, .w, var)
+}
+
+
 # Provide the initial estimates going up and down from the initial value
 profileNlmixr2FitDataEstInitial <- function(estimates, which, ofvIncrease, rseTheta, lower, upper) {
   checkmate::assert_data_frame(estimates, nrows = 1)

R/reexport.R

@@ -21,3 +21,7 @@ nlmixr2est::nlmixr2
 
 #' @importFrom nlmixr2est setCov
 nlmixr2est::setCov
+
+#' @importFrom rxode2 rxUiDeparse
+#' @export
+rxode2::rxUiDeparse