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. 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()); } }