Beispiel #1
0
        public void btnSetRPath_Click(object sender, EventArgs e)
        {
            frmInstallR frmR = new frmInstallR();

            frmR.ShowDialog(this);
            if (frmR.getRPathResult == HydroR.frmInstallR.buttonType.OK)
            {
                pathToR = frmR.getPathToR;
            }
        }
Beispiel #2
0
        //Put R into a panel in hydroDesktop so that it is built in
        private bool SetupRPanel()
        {
            bool foundPath = false;

            while (!foundPath)
            {
                //test to see if the process starts with the current path
                try
                {
                    // MessageBox.Show(pathToR);
                    if (pathToR == "")
                    {
                        p = Process.Start("Rgui", "--sdi");
                    }
                    else
                    {
                        p = Process.Start(@pathToR + @"\Rgui.exe", "--sdi");//--no-save");
                    }

                    p.WaitForInputIdle();
                    pID = p.Id;
                    setRParent();
                    RIsRunning = true;
                    return(true);
                }
                catch (Exception e)
                {  //if R does not start with the current path, open an openfiledialog and have the
                    //user find the path to the R executables
                    if (e.Message.Contains("cannot find the file specified"))
                    {
                        frmInstallR frmR = new frmInstallR();
                        frmR.ShowDialog(this);
                        if (frmR.getRPathResult == HydroR.frmInstallR.buttonType.OK)
                        {
                            pathToR = frmR.getPathToR;
                        }
                        else
                        {   //resize to original panel size
                            spcEditor.Panel2Collapsed  = true;
                            spcEditor.SplitterDistance = (spcEditor.Height - 20);
                            //stop ciculating to make sure the path is correct
                            foundPath = true;
                            //stop the rest of the code from trying to start R;
                            RIsRunning = false;
                            return(false);
                        }
                    }
                }
            }
            return(false);
        }
Beispiel #3
0
        //this will launch the R settings
        public void btnSettings_Click(object sender, EventArgs e)
        {
            frmInstallR frmR = new frmInstallR(true);

            frmR.getPathToR = pathToR;
            frmR.ShowDialog(this);
            if (frmR.getRPathResult == HydroR.frmInstallR.buttonType.OK)
            {
                string newPathToR = frmR.getPathToR;
                if (newPathToR != pathToR)
                {
                    pathToR = newPathToR;
                    //startR();
                }
            }
        }