if (FALSE) {
library(Rlabkey)
## create a non-assay backed run with data classes as data inputs and outputs
d1 <- labkey.experiment.createData(
list(name = "dc-01"), dataClassId = 400)
d2 <- labkey.experiment.createData(
list(name = "dc-02"), dataClassId = 402)
run <- labkey.experiment.createRun(
list(name="new run"), dataInputs = d1, dataOutputs = d2)
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