Nothing
#' pocket_favorite
#' @description favorite items from your Pocket list.
#' @param item_ids character vector. Pocket item ids you want to favorite
#' @param consumer_key character. Your Pocket consumer key. Defaults to Sys.getenv("POCKET_CONSUMER_KEY").
#' @param access_token character. Your Pocket request token. Defaults to Sys.getenv("POCKET_ACCESS_TOKEN").
#' @details This function uses the \code{modify} endpoint of the Pocket API which exhibits some weird behaviour.
#' For example, even if a `modify` action is not successful, the API will still return "success".
#' See [issue [#26](https://github.com/CorrelAid/pocketapi/issues/26) for a discussion.
#' @importFrom purrr map
#' @return Invisibly returns a list containing information on whether the action failed or succeeded, including the respective item ID.
#' @export
pocket_favorite <- function(item_ids, consumer_key = Sys.getenv("POCKET_CONSUMER_KEY"),
access_token = Sys.getenv("POCKET_ACCESS_TOKEN")) {
if (consumer_key == "") usethis::ui_stop(error_message_consumer_key())
if (access_token == "") usethis::ui_stop(error_message_access_token())
# generate "array" with actions (list of list in R)
results <- pocket_modify_bulk_(item_ids, "favorite", consumer_key, access_token)
return(invisible(results))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.