Missing value imputed for time

[billdenney]

library(PKNCA)
#> 
#> Attaching package: 'PKNCA'
#> The following object is masked from 'package:stats':
#> 
#>     filter

d_conc <- data.frame(conc = 2^(0:-5), time = 0:5)

o_conc <- PKNCAconc(d_conc, conc~time)
all_param_names <- names(get.interval.cols())
all_params <-
  as.data.frame(
    setNames(as.list(rep(TRUE, length(all_param_names))), all_param_names)
  )
all_params$start <- 0
all_params$end <- Inf
o_data <- PKNCAdata(o_conc, intervals = all_params)
o_nca <- pk.nca(o_data)
#> No dose information provided, calculations requiring dose will return NA.
#> Warning: All concentration data are missing
#> Error in `purrr::pmap()`:
#> ℹ In index: 1.
#> Caused by error in `assert_time()`:
#> ! Please report a bug.
#> : Error with interval start=0, end=Inf: Assertion on 'time' failed: Contains missing values (element 1).

^{Created on 2025-01-20 with reprex v2.1.1}

[billdenney]

This is partially fixed with

pknca/tests/testthat/test-pk.calc.all.R

Lines 761 to 790 in 3b72ee4

	test_that("pk.nca can be run for each parameter independently (#473)", {
	d_conc <- Theoph[Theoph$Subject %in% "1", ]
	d_conc <- rbind(d_conc, mutate(d_conc, Time = Time + 25))
	d_conc$volume <- 1
	d_conc$duration <- 1
	d_dose <- data.frame(Subject = "1", Time = c(0, 25), Dose = 5, duration = 1)
	o_conc <- PKNCAconc(d_conc, formula = conc~Time|Subject, volume = "volume", duration = "duration")
	o_dose <- PKNCAdose(d_dose, formula = Dose~Time|Subject, route = "intravascular", duration = "duration")
	non_pknca_covered_params <- c(
	"f", "time_above", "mrt.md.obs", "mrt.md.pred", "sparse_auclast", "sparse_auc_se", "sparse_auc_df",
	"vss.md.obs", "vss.md.pred", "ceoi"
	)
	all_params <- setdiff(names(get.interval.cols()), c("start", "end", non_pknca_covered_params))
	intervals <- data.frame(start = c(0, 25), end = c(25, Inf))
	for (param in all_params){
	intervals_with_param <- intervals
	intervals_with_param[[param]] <- TRUE
	o_data <- PKNCAdata(o_conc, o_dose, intervals = intervals_with_param)
	expect_no_error(param_res <- pk.nca(o_data))
	expect_false(
	all(is.na(param_res$result$PPORRES)),
	info = paste0("Parameter ", param, " can be calculated independently")
	)
	}
	})