require(flowWorkspaceData)
d<-system.file("extdata",package="flowWorkspaceData")
wsfile<-list.files(d,pattern="manual.xml",full=TRUE)
ws <- openWorkspace(wsfile);
getSamples(ws)
res <- try(getKeywords(ws,"CytoTrol_CytoTrol_1.fcs"), silent = TRUE)
print(res[[1]])
getKeywords(ws, 1)
Run the code above in your browser using DataLab