1 include "R/RConfiguration"
\r
3 include "Simantics/DB" as DB
\r
4 include "http://www.simantics.org/Layer0-1.1" as L0
\r
6 test currentModel = do
\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
19 sessionR = DB.syncWrite $ \_ -> createSession sessionConf
\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