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;
mnuItemPara.Click += mnuItemPara_Click;
parametersToolStripMenuItem.Click += mnuItemPara_Click;
mtBtnParam.Click += mnuItemPara_Click;
}
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);
}
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);
}
private void mnuItemHeatmap_Click(object sender, EventArgs e)
{
var selectedNodeTag = (clsDatasetTreeNode)ctlTreeView.SelectedNode.Tag;
if (!ValidateNodeIsSelected(selectedNodeTag))
{
return;
}
maxRow = selectedNodeTag.mDTable.Rows.Count;
if (!ValidateIsPlotTable(selectedNodeTag, 2))
{
return;
}
mHeatmapOptions = new clsHeatmapPar();
var datasetNameInR = selectedNodeTag.RDatasetName;
var selectedRowKeys = new List <string>();
var selectedRows = ((ucDataGridView)mExpressionsTab.Controls[0]).SelectedRows;
//if (((ucDataGridView)this.mExpressionsTab.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)
{
selectedRowKeys.Add(row.Cells[0].Value.ToString());
}
mHeatmapOptions.tempFile = mRTempFilePath;
mHeatmapOptions.RDataset = datasetNameInR;
mHeatmapOptions.mstrDatasetName = selectedNodeTag.DataText;
mHeatmapOptions.SelectedRows = selectedRowKeys;
if (mhtDatasets.ContainsKey("Factors"))
{
var factorTable = mhtDatasets["Factors"];
mHeatmapOptions.Factors = clsDataTable.DataTableRows(factorTable.mDTable);
}
else
{
mHeatmapOptions.Factors = null;
}
PlotHeatmap(mHeatmapOptions);
}
public void PlotHeatmap(clsHeatmapPar heatmapOptions)
{
if (mDataTab.Controls.Count != 0)
{
#region Hook Threading Events
m_BackgroundWorker.DoWork += m_BackgroundWorker_GenerateHeatmap;
m_BackgroundWorker.RunWorkerCompleted += m_BackgroundWorker_HeatMapCompleted;
#endregion
var frmHeatmapParams = new frmHeatMapPar(heatmapOptions)
{
maxRowCount = maxRow
};
var res = frmHeatmapParams.ShowDialog();
if (res == DialogResult.OK)
{
mHeatmapOptions = frmHeatmapParams.clsHmapPar;
mDoClustering = frmHeatmapParams.DoClust;
var heatmapPlot = new clsRplotData(mHeatmapOptions.RCommand, "Hmap");
Add2AnalysisHTable(mHeatmapOptions, "Heatmap_Clustering");
m_BackgroundWorker.RunWorkerAsync(heatmapPlot);
mProgressForm.Reset("Generating Heatmap ...");
mProgressForm.ShowDialog();
}
#region Unhook Threading Events
m_BackgroundWorker.DoWork -= m_BackgroundWorker_GenerateHeatmap;
m_BackgroundWorker.RunWorkerCompleted -= m_BackgroundWorker_HeatMapCompleted;
#endregion
}
}
public frmHeatMapPar(clsHeatmapPar clsHmapPar)
{
InitializeComponent();
mclsHmapPar = clsHmapPar;
}
