Merge pull request #83 from InsightRX/RXR-1802

RXR-1802: fix issue with parsing of a long line
InsightRX · Dec 22, 2023 · 70849dc · 70849dc
2 parents 670c687 + 5540faf
commit 70849dc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/new_ode_model.R b/R/new_ode_model.R
@@ -357,9 +357,9 @@ new_ode_model <- function (model = NULL,
                        "\\[OBS_COMP\\]", obs$cmt,
                        "\\[DOSE_COMP\\]", dose$cmt,
                        "\\[OBS_SCALE\\]", obs$scale,
-                       "\\[OBS_VARIABLE\\]", deparse(obs$variable),
+                       "\\[OBS_VARIABLE\\]", paste0(deparse(obs$variable), collapse = ""),
                        "\\[DOSE_BIOAV\\]", dose$bioav,
-                       "\\[DOSE_DUPLICATE\\]", deparse(dose$duplicate),
+                       "\\[DOSE_DUPLICATE\\]", paste0(deparse(dose$duplicate), collapse = ""),
                        "\\[CODE\\]", code,
                        "\\[PK_CODE\\]", pk_code,
                        "\\[DOSE_CODE\\]", dose_code,