testing and updating of documentation for getGroups.PKNCAdata()

NAMESPACE

@@ -39,6 +39,7 @@ S3method(getDataName,PKNCAresults)
 S3method(getDepVar,PKNCAconc)
 S3method(getDepVar,PKNCAdose)
 S3method(getGroups,PKNCAconc)
+S3method(getGroups,PKNCAdata)
 S3method(getGroups,PKNCAdose)
 S3method(getGroups,PKNCAresults)
 S3method(getIndepVar,PKNCAconc)

R/class-PKNCAdata.R

@@ -227,8 +227,10 @@ summary.PKNCAdata <- function(object, ...) {
   print.PKNCAdata(object, summarize=TRUE, ...)
 }
 
-#' Get the groups
-#'
+#' Get the groups (right hand side after the `|` from a PKNCA
+#' object).
+#' 
+#' @rdname getGroups.PKNCAconc
 #' @param object The object to extract the data from
 #' @param ... Arguments passed to other getGroups functions
 #' @returns A data frame with the (selected) group columns.

tests/testthat/test-class-PKNCAdata.R

@@ -335,3 +335,17 @@ test_that("intervals may be a tibble", {
     as.data.frame(pk.nca(mydata))
   )
 })
+
+test_that("getGroups works", {
+  # Check that it works with grouping [contains only the grouping column(s)]
+  o_conc_group <- PKNCAconc(as.data.frame(datasets::Theoph), conc~Time|Subject)
+  data_group <- as.data.frame(datasets::Theoph)
+  expected_group <- data.frame(Subject = data_group$Subject)
+
+  expect_equal(getGroups.PKNCAdata(o_conc_group), expected_group)
+
+  # Check that it works without groupings as expected [empty]
+  o_conc_nongroup <- PKNCAconc(as.data.frame(datasets::Theoph)[datasets::Theoph$Subject == 1,], conc~Time)
+
+  expect_equal(names(getGroups.PKNCAdata(o_conc_nongroup)), character(0))
+})