From 7a2394e4d0db99feb0ef3df5396d7b91a99810c1 Mon Sep 17 00:00:00 2001 From: Philip Delff Date: Wed, 30 Oct 2024 22:13:00 -0400 Subject: [PATCH] tests --- DESCRIPTION | 2 +- man/uniquePresent.Rd | 5 +++-- tests/testthat/test_flagsCount.R | 11 ----------- 3 files changed, 4 insertions(+), 14 deletions(-) delete mode 100644 tests/testthat/test_flagsCount.R diff --git a/DESCRIPTION b/DESCRIPTION index 7eec47b9..31de0e14 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: NMdata Type: Package Title: Preparation, Checking and Post-Processing Data for PK/PD Modeling -Version: 0.1.7.912 +Version: 0.1.7.921 Authors@R: c(person(given="Philip", family="Delff", email = "philip@delff.dk", diff --git a/man/uniquePresent.Rd b/man/uniquePresent.Rd index 00fb5982..cf0ea0cb 100644 --- a/man/uniquePresent.Rd +++ b/man/uniquePresent.Rd @@ -16,8 +16,9 @@ the unique values are returned.} \item{na.pattern}{In addition to NA-elements, what text strings should be considered missing? Default is empty strings and strings only containing white spaces (`na.pattern="^ *$"`).} - -\item{a}{vector of same class as `x`} +} +\value{ +a vector of same class as `x` } \description{ Extract unique non-missing value from vector diff --git a/tests/testthat/test_flagsCount.R b/tests/testthat/test_flagsCount.R deleted file mode 100644 index c92e8d01..00000000 --- a/tests/testthat/test_flagsCount.R +++ /dev/null @@ -1,11 +0,0 @@ -## library(devtools) -## load_all() - -context("flagsCount") - -test_that("No flags table provided",{ - - pk <- readRDS(file=system.file("examples/data/xgxr2.rds",package="NMdata")) - - flagsCount(pk[EVID==0]) -})