#'@title Refreshes an item's thumbnail PNG
#'@description returns a boolean success
#'@param itemID id of item to refresh thumbnail for
#'@param ... extra parameters to pass to checkAuth
#'@return returns TRUE if the thumbnail is put successfully, and false if it fails
#'@importFrom base64enc base64encode
#'@importFrom httr PUT
#'
#'@examples
#'\dontrun{
#'setBaseURL('dev')
#'refreshItemThumbnail('CCGftiy')
#'}
#'@export
refreshItemThumbnail <- function(itemID, ...) {
checkAuth(...)
itemThumbnailEndpoint <- paste0(pkg.env$item_thumbnail, itemID)
pngFile <- thumb.service(paste0(pkg.env$item_json, itemID))
enc <- base64encode(pngFile)
exists <- checkItemExists(itemID)
if (exists != TRUE){
stop('failed GET on item ', itemID ,'. error code:', exists$status_code)
}
response <- PUT(url=itemThumbnailEndpoint, body=enc,
content_type('text/plain'),
add_headers('Authorization' = getAuth(), 'Connection'='keep-alive'))
return(tolower(http_status(response)$category) == "success")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.