# NOT RUN {
Sys.setenv(OPENCAST_HOST = "https://legacy.opencast.org")
Sys.setenv(OPENCAST_USERNAME = "admin")
Sys.setenv(OPENCAST_PASSWORD = "opencast")
events <- oc_list_events()
publications <- oc_event_list_publications(events$content$identifier[1])
oc_event_publication(events$content$identifier[1],
publications$content$id[1])
# }
Run the code above in your browser using DataLab