RGetLastErr()

Retrieves the current error status and optionally resets it.

Synopsis

int RGetLastErr( string & err_desc, int & userData, bool autoclear = false);

Parameter Description
err_desc Return parameter for error description.
userData

Return parameter for the context (function) in which error occurred.

The user data variable can be set to an integer value and be used to detect errors when calling R functions. Set the variable to an integer value for an R function when you call it. The function RGetLastErr() returns the integer value that was set for a function via the "userData" parameter if an error occurs.

autoclear Optional parameter. If this parameter is set to true, then the error status (value, description and context) are automatically cleared.

Return Value

Error status value (0 .. no error)

Description

Retrieves the current error status and optionally resets it.

Example

The example calls the REvalExpVar function and returns the current error status via the RGetLastErr() function.

#uses "CtrlR"
#uses "SmartSCADA/analytics/RCtrl.ctl"
main()
{
  dyn_float var1 = makeDynFloat(31,31,33,32,34,33,32,35,29,34,38,40,37,38,36,36,36,39,38,40,35,32,34,32,34,29,29,28,31,28,30,34,33,28,31,32,33,33,33,35,36,36,40,38,40,37,40,38,40,38);
  dyn_float var2 = makeDynFloat(401,381,382,392,406,372,361,405,392,399,350,342,346,354,304,345,320,317,356,323,386,406,405,396,400,401,365,400,391,398,362,368,363,373,389,370,406,386,402,367,379,380,406,389,374,379,399,406,377,407);
  RSetVar("var1", var1);
  RSetVar("var2", var2);
  string err_desc;
  int userData;
  string H_LINE = "***************************************************************************";
  //Function call REvalExpVar()->Evaluates an R expression and sets the result value for the R variable "cResult"
  int rv = REvalExpVar(0, "cResult", "cor(%var%,%var%)", var1, var2);
  if (RGetLastErr(err_desc, userData, true) != 0) //error handling via the RGetLastErr function
  {
    DebugTN("Error occurred: " + err_desc);
  }
  else
  { 
    DebugN("REvalExpVar_test finished! Return value:", rv);
    anytype at = RGetVar("cResult");
    DebugN("Value of the R variable cResult:", at);
    DebugN(H_LINE);
  }
}

Assignment

R Functions

Availability

R Control Extension