R/media.R

In shunsambongi/wpr: R interface for WordPress REST API

media_list <- function(...) {
  GET("/media", ...)
}

media_create <- function(file, ...) {
  body <- list(
    file = httr::upload_file(file)
  )
  POST("/media", body = body, encode = "multipart", ...)
}

media_retrieve <- function(id, ...) {
  GET("/media/{id}", ...)
}

media_delete <- function(id, ...) {
  DELETE("/media/{id}", ...)
}