Sync plot method args for sens_grid and sens_each

[kylebaron]

The xlab and ylab arguments were not available / implemented for the sens_plot() method for sens_grid() outputs. These were added. I also allowed ylab to be a vector for cases where multiple plots are created and need to be labeled.

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(mrgsim.sa)
#> Loading required package: mrgsolve
#> 
#> Attaching package: 'mrgsolve'
#> The following object is masked from 'package:stats':
#> 
#>     filter

mod <- modlib("pk1", end = 72, outvars = "CP,CENT")
#> Building pk1 ...
#> done.


out <- 
  mod %>% 
  ev(amt = 100) %>% 
  select_par(CL, KA) %>% 
  parseq_manual(
    KA = seq_even(0.1, 1, n = 4),
    CL = seq_even(0.7, 2.9, n = 4),
    V = seq_even(15, 22, n = 4)) %>%
  sens_grid() %>%
  mutate(time = time)

# Error
try(sens_plot(out,  grid = FALSE, ylab = c("CP")))
#> Error in sens_plot(out, grid = FALSE, ylab = c("CP")) : 
#>   `dv_name` (2) and `ylab` (1) have different lengths.

# Works
sens_plot(out, "CP",  grid = FALSE, ylab = "Concentration")

    
# Works, need ylab length 2
sens_plot(out, c("CP", "CENT"),  grid = FALSE, 
          ylab = c("Concentration", "amount"))
#> $CP

#> 
#> $CENT

^{Created on 2026-03-30 with reprex v2.1.1}