private void mbtnPlot_Click(object sender, EventArgs e)
{
var protein = Protein2Plot;
var proteinRollupDisplay = new frmPlotDisplay();
if (protein != null)
{
var rcmd = plotCommand + "(" + RDataset + ", IPI=\"" + protein + "\",";
rcmd = rcmd + "Data=" + Dataset + "," + ShowDataLabels + @",file=""" + tempFile + @""")";
try
{
rConnector.EvaluateNoReturn(rcmd);
proteinRollupDisplay.Image = LoadImage(tempFile);
proteinRollupDisplay.EnableParameterMenu = false;
proteinRollupDisplay.MdiParent = m_frmDAnTEmdi;
proteinRollupDisplay.Title = protein;
proteinRollupDisplay.Show();
}
catch (Exception ex)
{
MessageBox.Show("Error in R command: " + rcmd + "\nError: " + ex.Message,
"Exception while talking to R");
}
}
else
{
MessageBox.Show("Select a protein first!", "Nothing selected", MessageBoxButtons.OK,
MessageBoxIcon.Warning);
}
}
private bool GetLabkeyProjectNames()
{
var success = true;
var rcmd = @"projectNames <- LabKeyProjects()";
try
{
rConnector.EvaluateNoReturn(rcmd);
}
catch (Exception e)
{
Console.WriteLine(e.Message);
return(false);
}
if (rConnector.GetRstringVector("projectNames"))
{
mstrArrProjects = rConnector.Vector;
}
else
{
success = false;
}
return(success);
}
private bool CheckRVersion(string mstrMajor, string mstrMinor)
{
bool mblresult;
try
{
var rcmd = @"verOK <- RVersionOK(major=" + mstrMajor + ",minor=" + mstrMinor + ")";
mRConnector.EvaluateNoReturn(rcmd);
////object rout = rConnector.GetSymbol("verOK");
////mblresult = (bool)rout;
mblresult = mRConnector.GetSymbolAsBool("verOK");
}
catch (Exception ex)
{
mblresult = false;
Console.WriteLine("Exception thrown: " + ex.Message, "Error!");
}
return(mblresult);
}
private void CreatSpectralCountTablesSEQSYN(ICollection <string> datasetNames, DoWorkEventArgs e)
{
var dir = new DirectoryInfo(mstrAnalysisFolder);
foreach (var f in dir.GetFiles())
{
if (!f.Name.EndsWith("_syn.txt", StringComparison.CurrentCultureIgnoreCase))
{
continue;
}
var dName = f.Name.Substring(0, f.Name.IndexOf("_syn.txt", StringComparison.CurrentCultureIgnoreCase));
if (datasetNames.Contains(dName))
{
successfulDataSets.Add(dName);
}
}
if (successfulDataSets.Count > 1)
{
var fileList = @"c(""" + successfulDataSets[0];
var rcmd = "X <- createMSMSdt.SpectralCount(";
var dataFolder = mstrAnalysisFolder.Replace("\\", "/");
for (var i = 1; i < successfulDataSets.Count; i++)
{
fileList = fileList + @""",""" + successfulDataSets[i];
}
fileList += @""")";
rcmd += fileList + @",""" + dataFolder + @""",XcRank=" + XcRank +
"," + XCorrTh + "," + DelCn2Th + "," + TrypState + ")";
try
{
backgroundWorker1.ReportProgress(70,
"Creating peptide count table ... may take a while for large datasets ...");
rConnector.EvaluateNoReturn(rcmd);
rConnector.EvaluateNoReturn("Eset <- X$eset");
rConnector.EvaluateNoReturn("EsetRows <- X$rows");
var rows = rConnector.GetSymbolAsNumbers("EsetRows");
if ((int)rows[0] > 0)
{
if (rConnector.GetTableFromRmatrix("Eset"))
{
mDTEset = rConnector.DataTable.Copy();
mDTEset.TableName = "Eset";
rConnector.EvaluateNoReturn("cat(\"Spectral count data obtained.\n\")");
e.Result = enmDataType.ESET;
}
else
{
e.Result = null;
}
}
else
{
e.Result = null;
}
}
catch (Exception ex)
{
MessageBox.Show("R.Net failed: " + ex.Message, "Error!");
e.Result = null;
e.Cancel = true;
}
backgroundWorker1.ReportProgress(100, "Done.");
}
else
{
backgroundWorker1.ReportProgress(100, "You need at leaset two unique datasets... Giving up.");
}
}