include "R/RConfiguration"
include "R/R" as R
include "Simantics/DB" as DB
include "http://www.simantics.org/Layer0-1.1" as L0

test currentModel = do
    // Configure session
    //currentModel = DB.syncRead $ \_ -> DB.currentModel
    sessionConf = DB.syncWrite $ \_ -> do
        DB.claim currentModel L0.IsLinkedTo (DB.resource "http://www.simantics.org/R-1.0")
        sessionConf = createSessionConfiguration currentModel $ 
            R.SessionConfiguration "localhost" 6311 "simupedia" "simupedia"
        addScript sessionConf """a = 13
b = 14
c = 15"""
        sessionConf

    // Create session
    sessionR = DB.syncWrite $ \_ -> createSession sessionConf
    
    // Compute something
    session = DB.syncRead $ \_ -> readSession sessionR
    R.syncExec session (R.evalR_ "d = a+b+c")
    print $ R.syncExec session (R.evalR "ls()" :: Vector String)
    session