# NOT RUN {
## create provenance params with material inputs and data outputs
library(Rlabkey)
mi <- data.frame(lsid=c("urn:lsid:labkey.com:Sample.251.MySamples:sample1",
"urn:lsid:labkey.com:Sample.251.MySamples:sample2"))
do <- data.frame(
lsid="urn:lsid:labkey.com:AssayRunTSVData.Folder-251:12c70994-7ce5-1038-82f0-9c1487dbd334")
p <- labkey.provenance.createProvenanceParams(name="step1", description="initial step",
materialInputs=mi, dataOutputs=do)
## create provenance params with object inputs (from an assay run)
oi <- labkey.selectRows(baseUrl="https://labkey.org/labkey/", folderPath = "Provenance",
schemaName="assay.General.titer",
queryName="Data",
colSelect= c("LSID"),
colFilter=makeFilter(c("Run/RowId","EQUAL","253")))
mi <- data.frame(lsid=c("urn:lsid:labkey.com:Sample.251.MySamples:sample1",
"urn:lsid:labkey.com:Sample.251.MySamples:sample2"))
p <- labkey.provenance.createProvenanceParams(name="step1", description="initial step",
objectInputs=oi[["LSID"]], materialInputs=mi)
# }
Run the code above in your browser using DataLab