static public void Execute() { try { /* * 1. Create RBroker instance using RBrokerFactory. * * This example creates an anonymous DiscreteTaskBroker. */ DiscreteBrokerConfig brokerConfig = new DiscreteBrokerConfig(Program.DEPLOYR_ENDPOINT, null, 5); RBroker rBroker = RBrokerFactory.discreteTaskBroker(brokerConfig); /* * 2. Create an instance of RTaskAppSimulator. It will drive * RTasks through the RBroker. */ SampleAppSimulation simulation = new SampleAppSimulation(rBroker); /* * 3. Launch RTaskAppSimulator simulation. */ rBroker.simulateApp(simulation); /* * 4. Block until all tasks are complete, and shutdown has been called */ rBroker.waitUntilShutdown(); } catch (Exception tex) { Console.WriteLine("constructor: ex=" + tex.ToString()); } }
static public void Execute() { try { /* * 1. Create RBroker instance using RBrokerFactory. * * This example creates a BackgroundTaskBroker. */ RAuthentication rAuth = new RBasicAuthentication(Program.AUTH_USER_NAME, Program.AUTH_PASSWORD); BackgroundBrokerConfig brokerConfig = new BackgroundBrokerConfig(Program.DEPLOYR_ENDPOINT, rAuth); RBroker rBroker = RBrokerFactory.backgroundTaskBroker(brokerConfig); /* * 2. Register RTaskListener for asynchronous * notifications on RTask completion. */ BackgroundTaskListener myTaskListener = new BackgroundTaskListener(rBroker); rBroker.addTaskListener(myTaskListener); /* * 3. Define RTask * * This example creates a BackgroundTask that will * execute an artibrary block of R code. */ String rCode = "x <- rnorm(100)"; RTask rTask = RTaskFactory.backgroundTask("Example Background RTask", "Example background RTask.", rCode, null); /* * 4. Submit RTask to RBroker for execution. * * The RTaskToken is returned immediately. You can * use the token to track the progress of RTask * and/or block while waiting for a result. * * However, in this example we are going to allow * the RTaskListener handle the result so * there is nothing further for us to do here after * we submit the RTask. */ RTaskToken rTaskToken = rBroker.submit(rTask); Console.WriteLine("Submitted " + rTask + " for execution on RBroker."); /* * 4. Block until all tasks are complete, and shutdown has been called */ rBroker.waitUntilShutdown(); } catch (Exception tex) { Console.WriteLine("Runtime exception=" + tex.ToString()); } }
static public void Execute() { try { /* * 1. Prepare PooledBrokerConfig instance. * * This example creates an authenticated PooledTaskBroker * to act as our scoring engine. * * The following steps initialize the pool of * R sessions dedicated to our scoring engine. * * In this example, we pre-initialize the workspace * for each R session in the pool to contain the * R model used when scoring customer requests. * * The R model, insurModel.rData, is loaded from * the DeployR repository into each workspace at * startup time. Preloading the R model at startup * reduces runtime overhead and improves overall * response times in the application. */ RAuthentication rAuth = new RBasicAuthentication(Program.AUTH_USER_NAME, Program.AUTH_PASSWORD); PoolCreationOptions poolOptions = new PoolCreationOptions(); PoolPreloadOptions preloadOptions = new PoolPreloadOptions(); preloadOptions.filename = Program.TUTORIAL_INSURANCE_MODEL; preloadOptions.directory = Program.TUTORIAL_REPO_DIRECTORY; preloadOptions.author = Program.TUTORIAL_REPO_OWNER; poolOptions.preloadWorkspace = preloadOptions; /* * 2. Create RBroker instance. * * The application designer, in conjunction with the * DeployR administrator who provisions and sets * limits on DeployR grid resources, need to decide how * many R sessions will be reserved for the PooledRBroker * used by our scoring engine application. */ int TARGET_POOL_SIZE = 10; PooledBrokerConfig brokerConfig = new PooledBrokerConfig(Program.DEPLOYR_ENDPOINT, rAuth, TARGET_POOL_SIZE, poolOptions); Console.WriteLine("About to create pooledTaskBroker."); RBroker rBroker = RBrokerFactory.pooledTaskBroker(brokerConfig); Console.WriteLine("R session pool size, requested: " + TARGET_POOL_SIZE + " , actual: " + rBroker.maxConcurrency() + "\n"); /* * 3. Create an RTaskAppSimulator. It will drive * sample customer data scoring requests through the * RBroker. */ ScoringEngineSimulation simulation = new ScoringEngineSimulation(rBroker); /* * 4. Launch RTaskAppSimulator simulation. */ rBroker.simulateApp(simulation); /* * 5. Block until all tasks are complete, and shutdown has been called */ rBroker.waitUntilShutdown(); } catch (Exception tex) { Console.WriteLine("constructor: ex=" + tex.ToString()); } }
static public void Execute() { try { /* * 1. Create RBroker instance using RBrokerFactory. * * This example creates a DiscreteTaskBroker. */ DiscreteBrokerConfig brokerConfig = new DiscreteBrokerConfig(Program.DEPLOYR_ENDPOINT); RBroker rBroker = RBrokerFactory.discreteTaskBroker(brokerConfig); /* * 2. Register RTaskListener for asynchronous * notifications on RTask completion. */ SampleTaskListener myTaskListener = new SampleTaskListener(rBroker); rBroker.addTaskListener(myTaskListener); /* * 3. Define RTask * * This example creates a DiscreteTask that will * execute an R script, /testuser/tutorial-rbroker/5SecondNoOp. */ RTask rTask = RTaskFactory.discreteTask(Program.TUTORIAL_NOOP_SCRIPT, Program.TUTORIAL_REPO_DIRECTORY, Program.TUTORIAL_REPO_OWNER, "", null); /* * 4. Submit RTask to RBroker for execution. * * The RTaskToken is returned immediately. You can * use the token to track the progress of RTask * and/or block while waiting for a result. * * However, in this example we are going to allow * the RTaskListener handle the result so * there is nothing further for us to do here after * we submit the RTask. */ RTaskToken rTaskToken = rBroker.submit(rTask); Console.WriteLine("DiscreteAsynchronous: submitted " + rTask + " for execution on RBroker."); /* * 5. Block until all tasks are complete, and shutdown has been called */ rBroker.waitUntilShutdown(); } catch (Exception tex) { Console.WriteLine("DiscreteAsynchronous: ex=" + tex.ToString()); } }