tests/testthat/test_Emax_Baseline_T_SpecialCovNameSaveAsInputData.R

In Certara.Xpose.NLME: Enhances 'xpose' Diagnostics for Pharmacometric Models from 'Certara.RsNLME' and Phoenix NLME

test_that("xpose used for special covariate name in the data  ", {
  modelName <- "SpecialCovNameSaveAsInputData"
  workingDir <- system.file(paste0("extdata/", modelName),
    package = "Certara.Xpose.NLME",
    mustWork = TRUE
  )

  # turn off locale-specific sorting
  Sys.setlocale("LC_COLLATE", "C")
  xpdb <- xposeNlme(
    dir = workingDir,
    modelName = modelName
  )

  Summaryresults <- as.data.frame(xpdb$summary)

  # removing dir
  Summaryresults$value[Summaryresults$label == "dir"] <- ""
  testthat::local_edition(3)
  testthat::expect_snapshot(Summaryresults)
})