demo/user_create_document.r

In ropensci/RMendeley: Interface to Mendeley API methods

#'createDocument - Creates a new document in the user's library or a group. [not working]
#'
#'@param mc OAuth object of class MendeleyCredentials
#'@param doc ...
#'@param  type type of group. Can be public, private or invite.
#'@param  title title of group document.
#'@param curl If using in a loop, call getCurlHandle() first and pass
#'  the returned value in here (avoids unnecessary footprint)
#' @param ... optional additional curl options (debugging tools mostly).
#'@export
#'@examples \dontrun{
#' user_create_document(mc, ....)
#'}
createDoc <- function(mc = NULL, doc, type = "Thesis",
    title = "title", ..., curl = getCurlHandle()) {
if (!is(mc, "MendeleyCredentials"))
        stop("Invalid or missing Mendeley credentials. ?mendeley_auth for more information.",
            call. = FALSE)
    jdoc <- toJSON(doc, type = type, title = title, collapse = "")
    val <- OAuthRequest(mc, "http://api.mendeley.com/oapi/library/documents/",
        list(document = jdoc), "POST", curl = curl)
    new("MendeleySimpleDocumentID", as.character(fromJSON(val)))
}
# API: http://apidocs.mendeley.com/home/user-specific-methods/user-library-create-document