Loading R/RNA-seq.R +6 −2 Original line number Diff line number Diff line Loading @@ -189,6 +189,12 @@ volcano_plot <- function( if(is.null(sub_gene)){sub_gene <- .data$gene_name} if(is.null(sub_id)){sub_id <- .data$gene_id} special_gene <- special_gene %>% .[. %in% dt$gene_name] if(length(special_gene) == 0){ special_gene <- NULL } dt <- de.dt( .data, fold_change, Loading Loading @@ -244,8 +250,6 @@ volcano_plot <- function( ] if(!is.null(special_gene)){ special_gene <- special_gene %>% .[. %in% dt$gene_name] dt[ label_special %in% special_gene, color := special_label Loading Loading
R/RNA-seq.R +6 −2 Original line number Diff line number Diff line Loading @@ -189,6 +189,12 @@ volcano_plot <- function( if(is.null(sub_gene)){sub_gene <- .data$gene_name} if(is.null(sub_id)){sub_id <- .data$gene_id} special_gene <- special_gene %>% .[. %in% dt$gene_name] if(length(special_gene) == 0){ special_gene <- NULL } dt <- de.dt( .data, fold_change, Loading Loading @@ -244,8 +250,6 @@ volcano_plot <- function( ] if(!is.null(special_gene)){ special_gene <- special_gene %>% .[. %in% dt$gene_name] dt[ label_special %in% special_gene, color := special_label Loading
