if (FALSE) {
gmConnectServer(MySQL(), host="myServer.mydomain.edu", user="mysqlUser",
passwd="mysqlPassword", dbname="myDB")
rg = gmCreateRightsGroup("Protected")
ug = gmCreateUserGroup("Admins")
gmSetRights("Admins","Protected",read=TRUE,write=TRUE)
gmAddUserToGroup("admin","Admins")
gmSetRightsGroup(rg,"Protected")
gmSetRightsGroup(ug,"Protected")
rg = gmCreateRightsGroup("general")
ug = gmCreateUserGroup("users")
gmSetRightsGroup(c(rg,ug),"Protected")
gmAddUserToGroup("admin","users")
gmSetRights("users", "general", read=TRUE, write=TRUE)
gmCreateUser("myuser","mypassword",c("users"))
gmCreateUser(userGroups=c("users"))
gmDisconnectServer()
gmConnectDB(server="myServer.mydomain.edu",user="mysqlUser",passwd="mysqlPassword")
gmDefaultRightsGroup("general")
gmListVariables()
gmCreateClass("sample","set","a material sample",parent="gmObject")
gmAddMembers("root","sample", required=FALSE)
gmClassMembers(var="sample")
gmAdd(root,"sample",data.frame(gmName="Sample1"))
gmDisconnectServer()
}
Run the code above in your browser using DataLab