绘制富集的时候报错

[wangHJ497]

visCluster(object = st.data,

•        plotType = "both",
  

•        column_names_rot = 45,
  

•        markGenes = markGenes,
  

•        annoTerm.data = enrich)
  

错误于ComplexHeatmap::Heatmap(as.matrix(mat), name = "Z-score", cluster_columns = clusterColumns, :
参数没有用(annoTerm.data = list(c("C1", "C1", "C1", "C1", "C1", "C2", "C2", "C2", "C2", "C2", "C3", "C3", "C3", "C3", "C3", "C4", "C4", "C4", "C4", "C4", "C5", "C5", "C5", "C5", "C5", "C6", "C6", "C6", "C6", "C6", "C7", "C7", "C7", "C7", "C7", "C8", "C8", "C8", "C8", "C8", "C9", "C9", "C9", "C9", "C9", "C10", "C10", "C10", "C10", "C10"), c("regulation of mesenchymal stem cell differentiation", "olfactory bulb interneuron differentiation", "cerebral cortex GABAergic interneuron differentiation", "Leydig cell differentiation",
"luteinization", "negative regulation of potassium ion transmembrane transporter activity", "negative regulation of potassium ion transmembrane transport", "negative regulation of potassium ion transport", "negative regulation of cation channel activity", "regulation of potassium ion transmembrane transporter activity", "regulation of vascular permeability", "outflow tract morphogenesis", "chemokine-mediated signaling pathway", "response to chemokin

[GatewayPhd]

server.R 742:755, 797:810 两段代码有问题，绘图传入的参数格式不对，和visCluster()的参数对不上，自己改一下就好了，下面这个我试了以下可以：

# ... existed code
  all_args <- c(list(object = cluster_result(),
                         htColList = list(col_range = c(-2, 0, 2),
                                            col_color = c(input$low, input$mid, input$high)),
                         plotType = input$plot_type,
                         msCol = c(input$line_low, input$line_mid, input$line_high),
                         mlineCol = input$mline.col,
                         ncol = input$ncol,
                         annoTermData = annoTerm.data,
                         annoTermMside = "right",
                         addBar = input$add.bar,
                         # KEGG term annotation
                         annoKeggData = annoKegg.data,
                         annoKeggMside = "right"),
                    custom_args)
# ...