fetch_assay_data(facilitated, ...) is fishy

[lianos]

The FacileBiocData-inspired FacileAnalysis vignette is doing something very weird here:

dat.bc <- fdds %>% 
  fetch_assay_data(features = head(vm.res, 1),
                   normalized = TRUE,
                   batch = "cell") %>% 
  with_sample_covariates("treatment") %>% 
  mutate(type = "batch_corrected")

If we debug(FacileData::as_facile_frame, you'll be caught in an infinite loop of of as_facile_frame calls ...