L0 = <http://www.simantics.org/Layer0-1.1>
SIMU = <http://www.simantics.org/Simulation-1.1>
SEL = <http://www.simantics.org/SelectionView-1.2>
SEL_UI = <http://www.simantics.org/SelectionViewUI-1.1>
MOD = <http://www.simantics.org/Modeling-1.2>

R = <http://www.simantics.org/R-1.0> : L0.Ontology
    @L0.new
    L0.HasResourceClass "org.simantics.r.RResource"

R.SessionConfiguration <T SIMU.Experiment
    >-- R.SessionConfiguration.host --> L0.String <R L0.HasProperty : L0.TotalFunction
    >-- R.SessionConfiguration.port --> L0.Integer <R L0.HasProperty : L0.TotalFunction
    >-- R.SessionConfiguration.username --> L0.String <R L0.HasProperty : L0.TotalFunction
    >-- R.SessionConfiguration.password --> L0.String <R L0.HasProperty : L0.TotalFunction
    >-- R.SessionConfiguration.hasScript --> R.Script <R L0.IsRelatedTo
    
    @L0.assert R.SessionConfiguration.host "localhost"
    @L0.assert R.SessionConfiguration.port 6311
    @L0.assert R.SessionConfiguration.username ""
    @L0.assert R.SessionConfiguration.password ""

R.TabContribution : SEL.TypedVariableTabContribution
    SEL.TypedVariableTabContribution.HasType R.Session
    SEL.VariableTabContribution.HasView SEL_UI.StandardProperties
    SEL.VariableTabContribution.HasPriority 1
    L0.HasLabel "Variables"

R.RProperty <T SEL.GenericParameterType

R.Session <T SIMU.Run
    >-- L0.PartOf --> R.SessionConfiguration
    >-- R.Session.hasValue --> L0.Value <R L0.HasProperty : R.RProperty
        //SEL.HasDisplayValue R.Session.hasValueDisplayValue : L0.Function
    
    @L0.assert L0.HasLabel "R session"
    
//    @L0.assert L0.domainProperties 
//        R.Session.rVariables : L0.ExternalValue
//            L0.HasValueType "VariableMap"

R.Script <T L0.Entity
    >-- R.Script.text --> L0.String <R L0.HasProperty : L0.TotalFunction
    
    @L0.assert R.Script.text ""
    
R.Model <T MOD.StructuralModel