if (FALSE) # Authenticate via username/password
cyto_session <- authenticate(site="premium", username="cyril_cytometry", password="cytobank_rocks!")
# Authenticate via auth_token
cyto_session <- authenticate(site="premium", auth_token="my_secret_auth_token")
if (FALSE) gates.gatingML_download(cyto_session, 22, directory="/my/new/download/directory/")
if (FALSE) gates.gatingML_upload(cyto_session, 22, file_path="/path/to/my_gatingML.xml")
if (FALSE) gates.apply(cyto_session, 22)
if (FALSE) # Dataframe of all gates with all fields present
gates.list(cyto_session, 22)
# Raw list of all gates with all fields present
gates.list(cyto_session, 22, output="raw")
if (FALSE) gates.show(cyto_session, 22, gate_id=2)
Run the code above in your browser using DataLab