Get metadata for objects in the Art Institute of Chicago.

aic(id, ascii = FALSE, ...)

Arguments

id	An object id
ascii	(logical) Allow non-ascii characters. Set to `TRUE` to show non-ascii characters. Default: `FALSE`
...	Curl args passed on to crul::verb-GET

Details

Sorry, but the metadata returned in this function is a bit messy because the metadata given for each piece is not stuctured, i.e., all elements are simply in html p tags, so its hard to have consistent parsing.

Examples

if (FALSE) {
aic(40652)
aic(145241)
aic(87531)
aic(80538)
aic(11332)
aic(11287)
aic(210804)

# with artwork body description
aic(11475) 

# many at once
lapply(c(11475,41594,59978,129410,41033,3394,21535,11475,41033), aic)

# browse to the page
out <- aic(210765)
out
unclass(out)
browse(out)

aic(8254)
aic(25316)
}