if (FALSE) {
## create provenance params with material inputs and data outputs and start a recording
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)
labkey.provenance.startRecording(baseUrl="https://labkey.org/labkey/",
folderPath = "Provenance", provenanceParams=p)
}
Run the code above in your browser using DataLab