if (FALSE) {
library(Rlabkey)
## create a non-assay backed run with samples as material inputs and outputs
m1 <- labkey.experiment.createMaterial(
list(name = "87444063.2604.626"), sampleSetName = "Study Specimens")
m2 <- labkey.experiment.createMaterial(
list(name = "87444063.2604.625"), sampleSetName = "Study Specimens")
## create the run configuration and include optional run level properties
runConfig <- list(name="new run", properties <- list(textField="run prop 1", floatField=3.14))
run <- labkey.experiment.createRun(
runConfig, materialInputs = m1, materialOutputs = m2)
labkey.experiment.saveBatch(baseUrl="http://labkey/", folderPath="home",
protocolName=labkey.experiment.SAMPLE_DERIVATION_PROTOCOL, runList=run)
}
Run the code above in your browser using DataLab