The functor 'Calculate R Expression' allows Dinamica EGO to call R externally and process the script outputs as if they were part Dinamica itself.

There are two ways to setup the 'Calculate R Expression' functor:

There is a plugin that contains everything needed to wrap R scripts inside Dinamica EGO, just extract this file to your Dinamica EGO installation directory (usually c:\Program Files\Dinamica EGO) and you will be good to go.

Users can specify a local R installation to be used for execution, the pre requisites are:

1. R needs to be at least at the 3.3.1 version.
2. Rscript.exe must be valid and located at the 'installation directory\\bin' subdirectory.
3. Dinamica package for R must be installed and at the latest version.

To specify your custom R installation, go to Tools → Options → External Comm tab and select 'Use alternative R installation for Calculate R Expression':

The functor is available under the 'External Communication' tab at the library.

To pass input parameters from Dinamica EGO to R, hooks must be placed to collect data. You can use the 'Create a hook' button on the selected functor bar or drag the hooks individually.
The valid hook types are:

• Number Table (will be passed as a list containing two named members, 'Keys' and 'Values' - only LookupTable's are supported at this time)
• Number Value
• Number String

To access the passed inputs on your R script, follow Dinamica EGO naming conventions and use t[0-99], v[0-99], s[0-99] for each type respectively. For example:

# Will store the 5th key from the passed LookupTable in the variable 'testing'
testing <- t1$Keys[ 5 ];

# Store the second passed String.
secondString <- s2;

# Store the 10th passed Value.
tempNumber <- v10;

To output data back to Dinamica EGO, the user must call a set of functions designed for this functionality:

In the examples above, data was constructed inside the calling functions. You can also specify variables as parameters.

Keep in mind:

• You can pass any kind of numeric value on the outputDouble function.
• Collections of numbers are valid Number Vector's.
• A LookupTable requires 2 number vectors, one for the Keys and another for the Values. Both vectors must have the same number of elements.

Expression:

for ( i in 1:length( t1$Values ) ) {
  tempValue <- t1$Values[ i ];
  t1$Values[ i ] = tempValue * tempValue;
}

outputLookupTable( "poweredTable", t1$Keys, t1$Values );

Expression:

tableMean <- mean( t1$Values );
print( paste( "Mean is", tableMean ) );
outputDouble( "mean", tableMean );

Noticed the print() statement? Dinamica EGO's Message Log will show output messages from the R script.

Expression:

outputFile  <- s1;
print( paste( "Plotting to", outputFile ) );
jpeg( outputFile, quality=100 );
plot( t1 );
dev.off();