if (FALSE) {
library(Rlabkey)
domain <- labkey.domain.get(baseUrl="http://labkey/", folderPath="home",
schemaName="lists", queryName="test list")
## update the third field to use two conditional formats
qf <- labkey.domain.FILTER_TYPES
cf1 = labkey.domain.createConditionalFormat(labkey.domain.createConditionalFormatQueryFilter(qf$GT,
100), bold=TRUE, text_color="D33115", background_color="333333")
cf2 = labkey.domain.createConditionalFormat(labkey.domain.createConditionalFormatQueryFilter(
qf$LESS_THAN, 400), italic=TRUE, text_color="68BC00")
domain$fields$conditionalFormats[[3]] = rbind(cf1,cf2)
labkey.domain.save(baseUrl="http://labkey/", folderPath="home",
schemaName="lists", queryName="test list", domainDesign=domain)
}
Run the code above in your browser using DataLab