tests/testthat/test-cyto_plot_compensation.R

In DillonHammill/CytoExploreR: Interactive Analysis of Cytometry Data

context("cyto_plot_compensation")

# CYTO_PLOT_COMPENSATION -------------------------------------------------------

test_that("cyto_plot_compensation", {
  
  # fr <- cyto_extract(gs_comp, "Single Cells")[[6]]
  # plots <- cyto_plot_compensation(fr,
  #                        channel_match = "PE-A",
  #                        compensate = TRUE,
  #                        popup = TRUE)
  # 
  # fs <- cyto_extract(gs_comp, "Single Cells")
  # plots <- cyto_plot_compensation(fs,
  #                                 channel_match = "131219-Compensation-Channels.csv",
  #                                 compensate = FALSE,
  #                                 popup = TRUE)
  # 
  # plots <- cyto_plot_compensation(gs_comp,
  #                                 channel_match = "131219-Compensation-Channels.csv",
  #                                 compensate = FALSE,
  #                                 popup = TRUE)
  
})