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) # Dataframe of all scales with all fields present
scales.list(cyto_session, 22)
# Raw list of all scales with all fields present
scales.list(cyto_session, 22, output="raw")
if (FALSE) scales.show(cyto_session, 22, scale_id=2)
if (FALSE) # Update any number of parameters (scale_type, cofactor, minimum, maximum)
# Scale Types -- 1: Linear, 2: Log, 4: Arcsinh
scales.update(cyto_session, scale=cyto_scale)
Run the code above in your browser using DataLab