From 4856333efc6e205ab405e8e2563bca1f6ec39cb2 Mon Sep 17 00:00:00 2001
From: Bill Denney <wdenney@humanpredictions.com>
Date: Sat, 29 Apr 2023 14:46:14 -0400
Subject: [PATCH] Fix CRAN test issues by exporting more functions

---
 NAMESPACE           |  1 +
 R/class-PKNCAconc.R |  2 ++
 man/setDuration.Rd  | 11 +++++++----
 3 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index c50d947a..5dacc2db 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -59,6 +59,7 @@ S3method(print,summary_PKNCAresults)
 S3method(right_join,PKNCAconc)
 S3method(right_join,PKNCAdose)
 S3method(right_join,PKNCAresults)
+S3method(setDuration,PKNCAconc)
 S3method(setDuration,PKNCAdose)
 S3method(setRoute,PKNCAdose)
 S3method(signifString,data.frame)
diff --git a/R/class-PKNCAconc.R b/R/class-PKNCAconc.R
index bb2a4bbc..efd0682f 100644
--- a/R/class-PKNCAconc.R
+++ b/R/class-PKNCAconc.R
@@ -275,6 +275,8 @@ getDataName.PKNCAconc <- function(object) {
   }
 }
 
+#' @rdname setDuration
+#' @export
 setDuration.PKNCAconc <- function(object, duration, ...) {
   if (missing(duration)) {
     object <-
diff --git a/man/setDuration.Rd b/man/setDuration.Rd
index 0accdd59..ac8f2690 100644
--- a/man/setDuration.Rd
+++ b/man/setDuration.Rd
@@ -1,10 +1,13 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/class-PKNCAdose.R
-\name{setDuration}
+% Please edit documentation in R/class-PKNCAconc.R, R/class-PKNCAdose.R
+\name{setDuration.PKNCAconc}
+\alias{setDuration.PKNCAconc}
 \alias{setDuration}
 \alias{setDuration.PKNCAdose}
 \title{Set the duration of dosing or measurement}
 \usage{
+\method{setDuration}{PKNCAconc}(object, duration, ...)
+
 setDuration(object, ...)
 
 \method{setDuration}{PKNCAdose}(object, duration, rate, dose, ...)
@@ -12,11 +15,11 @@ setDuration(object, ...)
 \arguments{
 \item{object}{An object to set a duration on}
 
-\item{...}{Arguments passed to another setDuration function}
-
 \item{duration}{The value to set for the duration or the name of the
 column in the data to use for the duration.}
 
+\item{...}{Arguments passed to another setDuration function}
+
 \item{rate}{(for PKNCAdose objects only) The rate of infusion}
 
 \item{dose}{(for PKNCAdose objects only) The dose amount}