-
Notifications
You must be signed in to change notification settings - Fork 83
Fixing v14 breaking changes #523
Changes from all commits
da8db99
b92ed9c
1c6fb8d
b765976
f4df1d4
57479e6
ab10e22
1e063b1
b1ea2b2
b74d546
b050015
File filter
Filter by extension
Conversations
Jump to
Diff view
Diff view
There are no files selected for viewing
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -88,11 +88,8 @@ metadata <- readr::read_tsv(file.path(data_dir, "pbta-histologies.tsv")) | |
Read in the CNV data. | ||
|
||
```{r} | ||
# TODO: update file path when consensus is added to data release | ||
cnv_df <- data.table::fread( | ||
file.path("..", | ||
"copy_number_consensus_call", | ||
"results", | ||
file.path(data_dir, | ||
"pbta-cnv-consensus.seg.gz"), | ||
data.table = FALSE | ||
) | ||
|
@@ -307,7 +304,7 @@ circos_map_plot( | |
```{r} | ||
circos_map_transloc(transloc_df, | ||
add_track = FALSE, # We change this to true to add on to our already existing plot | ||
sample_names = samples_for_examples[1], | ||
sample_names = sample(transloc_df$biospecimen_id1, 1), | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. I had to do this because not all samples have BNDs so this will kick back an error. |
||
samples_col = "biospecimen_id1", | ||
chr_col_1 = "chrom1", # Need to specify which column is the first and second location for each | ||
chr_col_2 = "chrom2", | ||
|
@@ -326,7 +323,7 @@ png(file.path(plots_dir, "transloc_circos_plot.png"), width = 800, height = 800) | |
# Run function per usual | ||
circos_map_transloc(transloc_df, | ||
add_track = FALSE, | ||
sample_names = samples_for_examples[1], | ||
sample_names = sample(transloc_df$biospecimen_id1, 1), | ||
samples_col = "biospecimen_id1", | ||
chr_col_1 = "chrom1", | ||
chr_col_2 = "chrom2", | ||
|
Large diffs are not rendered by default.
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -135,6 +135,13 @@ circos_map_plot <- function(df, | |
y_min <- min(bed_df$y_val, na.rm = TRUE) | ||
y_max <- max(bed_df$y_val, na.rm = TRUE) | ||
|
||
# Can't have identical y_min and y_max, this is just so CircleCI runs even if | ||
# the subset data is wonky | ||
if (y_min == y_max) { | ||
y_max <- y_max + 0.001 | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. y_min and y_max are calculated based on the data, but with some of the subsets, you can get values that are identical and circlize doesn't like that. So this is my fix. |
||
warning("ymax and ymin are identical") | ||
} | ||
|
||
# Tell them only one color is allowed | ||
if (length(single_color) > 1) { | ||
warning("Only a single color is allowed for the `single_color` argument, | ||
|
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -151,36 +151,28 @@ specimensUnion<- union(arribaDF$tumor_id, starfusionDF$tumor_id) | |
#### Write non-MB, non-ATRT embryonal fusions to file | ||
|
||
```{r} | ||
allFuseEmbry <- allFuseEmbry %>% | ||
prepareOutput(specimensUnion) | ||
if (!running_in_ci) { | ||
allFuseEmbry <- allFuseEmbry %>% | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. I don't really know what this means, but if it works 👍 There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Before, we skipped the step for generating the fusions of interest file for EPN samples because they were not represented in the subset. Now I'm switching and running the EPN, skipping the non-ATRT, non-MB embryonal fusions and genes of interest because those are not represented but the EPN samples are. |
||
prepareOutput(specimensUnion) | ||
allFuseEmbry %>% | ||
mutate( | ||
`CIC--NUTM1` = 0, | ||
`MN1--BEND2` = 0 | ||
) %>% | ||
write_tsv(embryFile) | ||
} | ||
``` | ||
|
||
```{r} | ||
# Are there any missing fusions? | ||
setdiff(embryFuses, colnames(allFuseEmbry)) | ||
``` | ||
#### Write ependymoma fusions to file | ||
|
||
```{r} | ||
allFuseEmbry %>% | ||
allFuseEpend %>% | ||
prepareOutput(specimensUnion) %>% | ||
mutate( | ||
`CIC--NUTM1` = 0, | ||
`MN1--BEND2` = 0 | ||
`C11orf95--YAP1` = 0, | ||
`LTBP3--RELA` = 0, | ||
`PTEN--TAS2R1` = 0, | ||
`YAP1--MAMLD2` = 0 | ||
) %>% | ||
write_tsv(embryFile) | ||
``` | ||
|
||
#### Write ependymoma fusions to file | ||
|
||
```{r} | ||
if (!running_in_ci) { | ||
allFuseEpend %>% | ||
prepareOutput(specimensUnion) %>% | ||
mutate( | ||
`C11orf95--YAP1` = 0, | ||
`LTBP3--RELA` = 0, | ||
`PTEN--TAS2R1` = 0, | ||
`YAP1--MAMLD2` = 0 | ||
) %>% | ||
write_tsv(ependFile) | ||
} | ||
write_tsv(ependFile) | ||
``` |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
After the subset was redone, this doesn't rectify this?
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
No it did not - more details in #527