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