| ... | ... |
@@ -37,6 +37,32 @@ test_that("Enhanced table is created", {
|
| 37 | 37 |
) |
| 38 | 38 |
expect_is(p2, "gg") |
| 39 | 39 |
|
| 40 |
+ p_ridge <- enhance_table(with_scores, |
|
| 41 |
+ res_macrophage_IFNg_vs_naive, |
|
| 42 |
+ annotation_obj = anno_df, |
|
| 43 |
+ n_gs = 5, |
|
| 44 |
+ plot_style = "ridgeline" |
|
| 45 |
+ ) |
|
| 46 |
+ expect_is(p_ridge, "gg") |
|
| 47 |
+ |
|
| 48 |
+ p_ridge_zscorecol <- enhance_table(with_scores, |
|
| 49 |
+ res_macrophage_IFNg_vs_naive, |
|
| 50 |
+ annotation_obj = anno_df, |
|
| 51 |
+ n_gs = 5, |
|
| 52 |
+ plot_style = "ridgeline", |
|
| 53 |
+ ridge_color = "gs_score" |
|
| 54 |
+ ) |
|
| 55 |
+ expect_is(p_ridge_zscorecol, "gg") |
|
| 56 |
+ |
|
| 57 |
+ expect_message({
|
|
| 58 |
+ p_ridge_fallback <- enhance_table( |
|
| 59 |
+ gtl = gtl_macrophage, |
|
| 60 |
+ n_gs = 5, |
|
| 61 |
+ plot_style = "ridgeline", |
|
| 62 |
+ ridge_color = "gs_score") |
|
| 63 |
+ }) |
|
| 64 |
+ |
|
| 65 |
+ |
|
| 40 | 66 |
re_modified <- res_enrich_IFNg_vs_naive |
| 41 | 67 |
# patching up some letters to mess up the name of a gene |
| 42 | 68 |
re_modified$gs_genes[1] <- |
