if (FALSE) {
## get list of projects on server, connect a session in one project,
## then list the folders in that project
# library(Rlabkey)
lsProjects("https://www.labkey.org")
lkorg <- getSession("https://www.labkey.org", "/home")
lsFolders(lkorg)
lkorg <- getSession("https://www.labkey.org", "/home/Study/ListDemo")
lsSchemas(lkorg)
}
Run the code above in your browser using DataLab