public void PlotHeatmap(clsHeatmapPar mclsHmapPar)
{
if (mtabControlData.Controls.Count != 0)
{
#region Hook Threading Events
m_BackgroundWorker.DoWork += m_BackgroundWorker_GenerateHeatmap;
m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_HeatMapCompleted;
#endregion
var mfrmHmapPar = new frmHeatMapPar(mclsHmapPar)
{
maxRowCount = maxRow
};
var res = mfrmHmapPar.ShowDialog();
if (res == DialogResult.OK)
{
mclsHeatmapPar = mfrmHmapPar.clsHmapPar;
doClust = mfrmHmapPar.DoClust;
var mclsRplots = new clsRplotData(mclsHeatmapPar.Rcmd, "Hmap");
Add2AnalysisHTable(mclsHeatmapPar, "Heatmap_Clustering");
m_BackgroundWorker.RunWorkerAsync(mclsRplots);
mfrmShowProgress.Message = "Generating Heatmap ...";
mfrmShowProgress.ShowDialog();
}
#region Unhook Threading Events
m_BackgroundWorker.DoWork -= m_BackgroundWorker_GenerateHeatmap;
m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_HeatMapCompleted;
#endregion
}
}
public frmHeatmapDisplay(clsHeatmapPar mclsHmap)
{
InitializeComponent();
mclsHmapPar = mclsHmap;
this.mnuItemPara.Click += new EventHandler(mnuItemPara_Click);
this.parametersToolStripMenuItem.Click += new EventHandler(mnuItemPara_Click);
this.mtBtnParam.Click += new System.EventHandler(this.mnuItemPara_Click);
}
public frmHeatMapPar(clsHeatmapPar clsHmapPar)
{
InitializeComponent();
mclsHmapPar = clsHmapPar;
}
private void mnuItemHeatmap_Click(object sender, EventArgs e)
{
var mclsSelected = (clsDatasetTreeNode)ctltreeView.SelectedNode.Tag;
if (!ValidateNodeIsSelected(mclsSelected))
{
return;
}
maxRow = mclsSelected.mDTable.Rows.Count;
if (!ValidateIsPlottable(mclsSelected, 2))
{
return;
}
mclsHeatmapPar = new clsHeatmapPar();
var datasetNameInR = mclsSelected.mstrRdatasetName;
var marrSelRows = new List<string>();
var selectedRows = ((ucDataGridView)this.ctltabPage.Controls[0]).SelectedRows;
//if (((ucDataGridView)this.ctltabPage.Controls[0]).SelectedRows.Count > 1000)
// MessageBox.Show("Maximum number of rows is set to 1000." + Environment.NewLine +
// "Select less than 1000 rows.", "Too many rows to plot",
// MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
//else
//{
foreach (DataGridViewRow row in selectedRows)
{
marrSelRows.Add(row.Cells[0].Value.ToString());
}
mclsHeatmapPar.tempFile = mRTempFilePath;
mclsHeatmapPar.Rdataset = datasetNameInR;
mclsHeatmapPar.mstrDatasetName = mclsSelected.mstrDataText;
mclsHeatmapPar.SelectedRows = marrSelRows;
if (mhtDatasets.ContainsKey("Factors"))
{
var mclsFactors = mhtDatasets["Factors"];
mclsHeatmapPar.Factors = clsDataTable.DataTableRows(mclsFactors.mDTable);
}
else
mclsHeatmapPar.Factors = null;
PlotHeatmap(mclsHeatmapPar);
}
