Running examples in ‘tern.mmrm-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: g_mmrm_lsmeans
> ### Title: Plot LS means for MMRM
> ### Aliases: g_mmrm_lsmeans
> 
> ### ** Examples
> 
> 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

> 
> mmrm_results <- fit_mmrm(
+   vars = list(
+     response = "FEV1",
+     covariates = c("RACE", "SEX"),
+     id = "USUBJID",
+     arm = "ARMCD",
+     visit = "AVISIT"
+   ),
+   data = mmrm_test_data,
+   cor_struct = "unstructured",
+   weights_emmeans = "equal"
+ )
> g_mmrm_lsmeans(mmrm_results, constant_baseline = c(BSL = 0))
Coordinate system already present.
ℹ Adding new coordinate system, which will replace the existing one.
> g_mmrm_lsmeans(
+   mmrm_results,
+   select = "estimates",
+   show_lines = TRUE,
+   xlab = "Visit"
+ )
> g_mmrm_lsmeans(
+   mmrm_results,
+   select = "contrasts",
+   titles = c(contrasts = "Contrasts of FKSI-FWB means"),
+   show_pval = TRUE,
+   show_lines = TRUE,
+   width = 0.8
+ )
Coordinate system already present.
ℹ Adding new coordinate system, which will replace the existing one.
> 
> mmrm_test_data2 <- mmrm_test_data %>%
+   filter(ARMCD == "TRT")
> 
> mmrm_results_no_arm <- fit_mmrm(
+   vars = list(
+     response = "FEV1",
+     covariates = c("RACE", "SEX"),
+     id = "USUBJID",
+     visit = "AVISIT"
+   ),
+   data = mmrm_test_data2,
+   cor_struct = "unstructured",
+   weights_emmeans = "equal"
+ )
> 
> g_mmrm_lsmeans(mmrm_results_no_arm, select = "estimates")
> g_mmrm_lsmeans(
+   mmrm_results_no_arm,
+   select = c("estimates", "contrasts"),
+   titles = c(
+     estimates = "Adjusted mean of FKSI-FWB",
+     contrasts = "it will not be created"
+   ),
+   show_pval = TRUE,
+   width = 0.8
+ )
> 
> g_mmrm_lsmeans(
+   mmrm_results_no_arm,
+   select = "estimates",
+   titles = c(estimates = "Adjusted mean of FKSI-FWB"),
+   show_pval = TRUE,
+   width = 0.8,
+   show_lines = TRUE
+ )
`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?
> 
> g_mmrm_lsmeans(
+   mmrm_results,
+   select = "estimates",
+   titles = c(estimates = "Adjusted mean of FKSI-FWB"),
+   table_stats = c("n", "ci")
+ )
Error in match.arg(round_type) : 'arg' must be of length 1
Calls: g_mmrm_lsmeans ... format_cell -> format_rcell -> format_value -> match.arg
Execution halted