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")
# cyto_visne refers to a viSNE object that is created from viSNE endpoints
# examples: visne.new, visne.show (see details section for more)
if (FALSE) visne.copy_settings(cyto_session, visne=cyto_visne)
if (FALSE) visne.delete(cyto_session, visne=cyto_visne)
if (FALSE) # Dataframe of all viSNE advanced analyses with all fields present
visne.list(cyto_session, 22)
# Raw list of all viSNE advanced analyses with all fields present
visne.list(cyto_session, 22, output="raw")
if (FALSE) visne.new(cyto_session, 22, visne_name="My new viSNE analysis")
if (FALSE) visne.rename(cyto_session, visne=cyto_visne, visne_name="My updated viSNE name")
if (FALSE) visne.run(cyto_session, visne=cyto_visne)
if (FALSE) visne.show(cyto_session, 22, visne_id=2)
if (FALSE) visne.status(cyto_session, visne=cyto_visne)
if (FALSE) visne.update(cyto_session, visne=cyto_visne)
if (FALSE) visne.helper.set_populations(visne=cyto_visne, population_id=1, fcs_files=c(1,2,3))
Run the code above in your browser using DataLab