Example for edc_data_stop()

[DanChaltiel]

For the future vignette.

If you use dplyr::case_when() to create a categorical variable and all cases should be handled, then you can use .default="ERROR and stop if there is any.

df = trial %>% 
  mutate(
    event_pfs_detail = case_when(
      !is.na(time_prog) ~ "Progression", 
      !is.na(time_death) ~ "Death",
      !is.na(time_pfs) ~ "Censored",
      .default="ERROR"
    ),
  )

df %>% 
  filter(event_pfs_detail=="ERROR") %>% 
  edc_data_stop("Error on primary endpoint !")