Tabular Views Over Process Graphs

ProcessCore.Table exposes ISA-like table views over a process graph. A table groups processes by name, and each row is backed by a live LabProcess.

dataset.Tables groups processes with the same name. Here both processes become rows in one Growth table.

let tableNames =
    dataset.Tables.TableNames
    |> Seq.toList

tableNames

["Growth"]

let growth = dataset.Tables.GetTable("Growth")

let initialShape =
    [ "rows", growth.RowCount
      "columns", growth.ColumnCount ]

initialShape

[("rows", 2); ("columns", 6)]

Headers and cells are typed. They preserve whether a column represents input/output, protocol metadata, or annotation values.

let headers =
    growth.Headers
    |> Seq.map (sprintf "%A")
    |> Seq.toList

headers

["Input Source"; "ProtocolREF"; "Component ProcessCore.DefinedTerm";
 "Parameter ProcessCore.DefinedTerm"; "Factor ProcessCore.DefinedTerm";
 "Output Sample"]

let firstRow =
    growth.GetRow(0)
    |> Seq.map (sprintf "%A")
    |> Seq.toList

firstRow

["FreeText "Base culture""; "FreeText "Growth""; "FreeText "chamber-1"";
 "Unitized ("7", "day", None)"; "Unitized ("25", "degree Celsius", None)";
 "FreeText "Leaf sample RT""]

Adding an annotation column writes PropertyValue objects into the appropriate graph slot. Parameter columns go to LabProcess.ParameterValue.

growth.AddColumn(
    CompositeHeader.Parameter("light intensity", None),
    ResizeArray([
        CompositeCell.Unitized("120", "umol m-2 s-1", None)
        CompositeCell.Unitized("150", "umol m-2 s-1", None)
    ])
)

let processParameters =
    growth.Processes
    |> Seq.map (fun p ->
        p.ParameterValue
        |> Seq.map (fun pv -> pv.Name + "=" + pv.ValueWithUnitText)
        |> Seq.toList)
    |> Seq.toList

processParameters

No value returned by any evaluator

Adding a row creates a new LabProcess in both the table and the parent dataset. Empty cells use the table's current headers as a template.

growth.AppendRow()

let afterAppend =
    [ "table rows", growth.RowCount
      "dataset processes", dataset.Processes.Count ]

afterAppend

[("table rows", 3); ("dataset processes", 3)]

The table is a view, not a detached copy. Querying the dataset after a table edit sees the edited process graph.

let allParameterNames =
    dataset.AllPropertyValues()
    |> Seq.map (fun pv -> pv.Name)
    |> Seq.distinct
    |> Seq.toList

allParameterNames

["duration"; "growth chamber"; "temperature"]

What To Use When