R/do_barracoda_workflow.R

In leonjessen/Barracoda2viz:

do_barracoda_workflow = function(input_xlsx, output_png){

  # 1. Read raw barracoda data
  d = read_barracoda_excel(path = input_xlsx)

  # 2. Clean the raw barracoda data
  d_clean = d %>% clean_barracoda_data

  # 3. Augment barracoda data
  d_clean_aug = d_clean %>% augment_barracoda_data

  # 4. Compute Kullback Leibler values
  d_clean_aug_kld = d_clean_aug %>% get_KLD

  # 5. Create logos
  d_clean_aug_kld %>% mk_logo(path = output_png)

  # 6. Return final barracoda data
  return(d_clean_aug_kld)

}