if (FALSE) {
library(Rlabkey)
## change the type of one of the columns
domain <- labkey.domain.get(baseUrl="http://labkey/", folderPath="home",
schemaName="lists", queryName="test list")
domain$fields[3,]$rangeURI = "xsd:string"
domain$fields[3,]$name = "changed to string"
labkey.domain.save(baseUrl="http://labkey/", folderPath="home",
schemaName="lists", queryName="test list", domainDesign=domain)
}
Run the code above in your browser using DataLab