org.simantics.r/scl/R/TestRConfiguration.scl

   1 include "R/RConfiguration"\r
   2 include "R/R" as R\r
   3 include "Simantics/DB" as DB\r
   4 include "http://www.simantics.org/Layer0-1.1" as L0\r
   5 \r
   6 test currentModel = do\r
   7     // Configure session\r
   8     //currentModel = DB.syncRead $ \_ -> DB.currentModel\r
   9     sessionConf = DB.syncWrite $ \_ -> do\r
  10         DB.claim currentModel L0.IsLinkedTo (DB.resource "http://www.simantics.org/R-1.0")\r
  11         sessionConf = createSessionConfiguration currentModel $ \r
  12             R.SessionConfiguration "localhost" 6311 "simupedia" "simupedia"\r
  13         addScript sessionConf """a = 13\r
  14 b = 14\r
  15 c = 15"""\r
  16         sessionConf\r
  17 \r
  18     // Create session\r
  19     sessionR = DB.syncWrite $ \_ -> createSession sessionConf\r
  20     \r
  21     // Compute something\r
  22     session = DB.syncRead $ \_ -> readSession sessionR\r
  23     R.syncExec session (R.evalR_ "d = a+b+c")\r
  24     print $ R.syncExec session (R.evalR "ls()" :: Vector String)\r
  25     session