No worries! The document you posted it on Github has been very helpful. We've published it to our server pretty much as is.
Below is our temporary fix for the deleted content if you're interested.
# get content by guid
get_content <- function(content_guid) {
tryCatch({resp <- connect_api(sprintf("experimental/content/%s", content_guid))
httr::content(resp)}, error = function(e) 'Unknown (Deleted Content?)')
}
get_content_name <- function(content_guid) {
tryCatch({content <- get_content(content_guid)
null_char(content$title, content$name)},error = function(e) 'Unknown (Deleted Content?)')
}