Print a structured return of the oc_event_publication() function.

# S3 method for oc_event_publication
print(x, ...)

Arguments

x

The return of the function this print function relates to.

...

Possible further options to the print function.

Value

A structured print of the return by the oc_event_publication() function.

See also

Examples

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]) resp <- oc_event_publication(events$content$identifier[1], publications$content$id[1]) resp
#> $content #> $content$metadata #> list() #> #> $content$attachments #> list() #> #> $content$channel #> [1] "engage-player" #> #> $content$id #> [1] "32c0dba1-97d9-4c23-b993-0b15831ac094" #> #> $content$media #> list() #> #> $content$mediatype #> [1] "text/html" #> #> $content$url #> [1] "https://legacy.opencast.org/play/91708b2e-285e-4f08-855d-2ad882c42002" #> #> #> $url #> [1] "https://legacy.opencast.org/api/events/91708b2e-285e-4f08-855d-2ad882c42002/publications/32c0dba1-97d9-4c23-b993-0b15831ac094" #> #> $response #> Response [https://legacy.opencast.org/api/events/91708b2e-285e-4f08-855d-2ad882c42002/publications/32c0dba1-97d9-4c23-b993-0b15831ac094?sign=FALSE] #> Date: 2019-11-04 11:19 #> Status: 200 #> Content-Type: application/v1.2.0+json #> Size: 220 B #> <BINARY BODY> #> #> attr(,"class") #> [1] "opencast_api"