Abbreviate SV Effects

Abbreviates SV effects column.

Usage

abbreviate_effect(effects)

Arguments

effects

Input string with effects.

Value

An abbreviated string.

Examples

(e1 <- gpgr:::abbreviate_effect("3_prime_UTR_truncation&start_lost&splice_region_variant"))
#> [1] "3UTRtrunc, SpliceRegV, StartLoss"
(e2 <- gpgr:::abbreviate_effect("duplication&foo&gene_fusion&BOOM&intron_variant"))
#> [1] "BOOM, Dup, foo, FusG, IntronV"
(e3 <- gpgr:::abbreviate_effect("TF_binding_site_variant&TFBS_ablation"))
#> [1] "TFBSDel, TFBSVar"
(e4 <- gpgr:::abbreviate_effect("foo&bar&stop_gained&badaboom"))
#> [1] "badaboom, bar, foo, StopGain"