diff --git a/DESCRIPTION b/DESCRIPTION index 93220e9b3..3ff5bdc60 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: aNCA Title: (Pre-)Clinical NCA in a Dynamic Shiny App -Version: 0.1.0.9175 +Version: 0.1.0.9176 Authors@R: c( person("Ercan", "Suekuer", email = "ercan.suekuer@roche.com", role = "aut", comment = c(ORCID = "0009-0001-1626-1526")), diff --git a/NEWS.md b/NEWS.md index 9ac7adfd1..e2d4f1520 100644 --- a/NEWS.md +++ b/NEWS.md @@ -94,6 +94,7 @@ * NCA results flagging correctly distinguishes missing vs not-requested parameters (#934) * Custom units table join uses correct keys instead of hardcoded columns (#1159) * "Summarise by" selector in Matrix Ratios fixed (input ID mismatch) (#1198) +* `export_cdisc()` now includes `ATPTREF` and `ROUTE` columns in ADPP output (#1276) ### Settings & Upload * SASS compilation moved from runtime to build-time script, fixing startup crashes on read-only deployments (#1107) diff --git a/R/data.R b/R/data.R index 12408448c..a78a5ba26 100644 --- a/R/data.R +++ b/R/data.R @@ -39,7 +39,7 @@ #' #' A dataset containing pharmacokinetic variable specifications. #' -#' @format A data frame with 359 rows and 19 variables: +#' @format A data frame with 363 rows and 19 variables: #' \describe{ #' \item{Dataset}{Character. Indicates the dataset the variable belongs to (PP, ADNCA, ADPP).} #' \item{Order}{Numeric. Variable order within its domain, based on Role, Core and Variable} diff --git a/data-raw/metadata_nca_variables.csv b/data-raw/metadata_nca_variables.csv index 71b080203..e010349bf 100644 --- a/data-raw/metadata_nca_variables.csv +++ b/data-raw/metadata_nca_variables.csv @@ -361,3 +361,5 @@ ADNCA,264,PKSUM1F,PK Summary Exclusion Flag 1,text,Record Qualifier,Perm,FALSE,F ADNCA,265,PKSUM1FN,PK Summary Exclusion Flag 1 (N),integer,Record Qualifier,Perm,FALSE,FALSE,12,,FALSE,,FALSE,,,,NA,FALSE ADPP,193,PPSUMFL,PP Summary Exclusion Flag,text,Record Qualifier,Perm,FALSE,FALSE,1,,FALSE,,FALSE,,,,NA,FALSE ADPP,194,PPSUMRSN,PP Summary Exclusion Reason,text,Record Qualifier,Perm,FALSE,FALSE,200,,FALSE,,FALSE,,,,NA,FALSE +ADPP,229,ATPTREF,Analysis Timepoint Reference,text,Timing,Perm,FALSE,FALSE,200,,FALSE,,FALSE,,,,NA,FALSE +ADPP,88,ROUTE,Route of Administration,text,Topic,Perm,FALSE,FALSE,40,C66729,FALSE,,FALSE,,,,NA,FALSE diff --git a/data/metadata_nca_variables.rda b/data/metadata_nca_variables.rda index b0677ea7d..3551d8358 100644 Binary files a/data/metadata_nca_variables.rda and b/data/metadata_nca_variables.rda differ diff --git a/man/metadata_nca_variables.Rd b/man/metadata_nca_variables.Rd index a634fd13c..a438ace66 100644 --- a/man/metadata_nca_variables.Rd +++ b/man/metadata_nca_variables.Rd @@ -5,7 +5,7 @@ \alias{metadata_nca_variables} \title{metadata_nca_variables} \format{ -A data frame with 359 rows and 19 variables: +A data frame with 363 rows and 19 variables: \describe{ \item{Dataset}{Character. Indicates the dataset the variable belongs to (PP, ADNCA, ADPP).} \item{Order}{Numeric. Variable order within its domain, based on Role, Core and Variable} diff --git a/tests/testthat/test-export_cdisc.R b/tests/testthat/test-export_cdisc.R index 0b4f7907e..ca97b73e2 100644 --- a/tests/testthat/test-export_cdisc.R +++ b/tests/testthat/test-export_cdisc.R @@ -969,4 +969,10 @@ describe("export_cdisc: flag columns do not leak to other outputs", { crit_cols <- grep("^CRIT|PPSUMFL|PPSUMRSN", names(pp), value = TRUE) expect_length(crit_cols, 0) }) + + it("includes ATPTREF and ROUTE in ADPP when present in source data (#1276)", { + result <- export_cdisc(test_pknca_res) + expect_true("ATPTREF" %in% names(result$adpp)) + expect_true("ROUTE" %in% names(result$adpp)) + }) })