fixs (#295)

Author: queque461

Omics/iVolcanoPlot.qmd

@@ -292,7 +292,9 @@ p_dot <- idotplot(ego, showCategory = 8) +
   scale_y_discrete(labels = function(x) strtrim(x, 30))
 p_vol <- ivolcano(df_airway, logFC_col = "log2FoldChange", pval_col = "padj",
                   gene_col = "symbol", title = "Volcano Plot", interactive = TRUE)
-pathway_volcano(p_dot, p_vol, widths = c(1, 1))
+p <- pathway_volcano(p_dot, p_vol, widths = c(1, 1))
+
+p
 ```
 
 Figure 8 demonstrates the linkage effect between the pathway dot plot and the volcano plot. Clicking a pathway on the left highlights the genes within that pathway in the volcano plot on the right, while other genes turn gray.

Omics/iVolcanoPlot.zh.qmd

@@ -292,7 +292,9 @@ p_dot <- idotplot(ego, showCategory = 8) +
   scale_y_discrete(labels = function(x) strtrim(x, 30))
 p_vol <- ivolcano(df_airway, logFC_col = "log2FoldChange", pval_col = "padj",
                   gene_col = "symbol", title = "Volcano Plot", interactive = TRUE)
-pathway_volcano(p_dot, p_vol, widths = c(1, 1))
+p <- pathway_volcano(p_dot, p_vol, widths = c(1, 1))
+
+p
 ```
 
 Figure 8 展示了通路点图与火山图的联动效果。点击左侧通路即可在右侧火山图中高亮该通路内的基因，其余基因自动变为灰色。