Merge pull request #312 from billdenney/linted

Lint updates
billdenney · Jul 31, 2024 · c4e7d68 · c4e7d68
2 parents e470188 + 35a5b9c
commit c4e7d68
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/interpolate.conc.R b/R/interpolate.conc.R
@@ -276,8 +276,8 @@ extrapolate.conc <- function(conc, time, time.out,
     if (auc.type %in% "aucinf") {
       # If AUCinf is requested, extrapolate using the half-life
       ret <- extrapolate_conc_lambdaz(clast=clast, lambda.z=lambda.z, tlast=tlast, time_out=time.out)
-    } else if (auc.type %in% "auclast" |
-                 (auc.type %in% "aucall" &
+    } else if (auc.type %in% "auclast" ||
+                 (auc.type %in% "aucall" &&
                     tlast == max(data$time))) {
       # If AUClast is requested or AUCall is requested and there are
       # no BLQ at the end, we are already certain that we are after

diff --git a/R/sparse.R b/R/sparse.R
@@ -9,7 +9,7 @@
 #' @family Sparse Methods
 #' @export
 as_sparse_pk <- function(conc, time, subject) {
-  if (is.data.frame(conc) & missing(time) & missing(subject)) {
+  if (is.data.frame(conc) && missing(time) && missing(subject)) {
     time <- conc$time
     subject <- conc$subject
     conc <- conc$conc