#' Query Crossref Edited Events data
#'
#' @export
#' @inherit crev_query
#' @examples
#' if (crul::ok("http://api.eventdata.crossref.org/v1/events?rows=0")) {
#' res <- crev_edited(rows = 1)
#' res
#' }
#'
#' \dontrun{
#' # filter with source
#' crev_edited(rows = 10, source = "reddit")
#' crev_edited(rows = 10, source = "twitter")
#'
#' # on the first of March 2017s
#' crev_edited(rows=10, from_collected_date = "2017-03-01",
#' until_collected_date = "2017-03-01")
#'
#' # in the month of March 2017
#' crev_edited(rows=10, from_occurred_date = "2017-03-01",
#' until_occurred_date = "2017-03-31")
#'
#' # in the month of March 2017
#' crev_edited(rows=10, from_collected_date = "2017-03-01",
#' until_collected_date = "2017-03-31")
#'
#' # Up to ten Events for a DOI prefix
#' crev_edited(rows = 10, obj_id_prefix = "10.1186")
#'
#' # Up to ten events for a given DOI
#' crev_edited(rows = 10, obj_id = "10.1186/s40536-017-0036-8")
#'
#' # Use cursor
#' res <- crev_edited(rows = 10)
#' crev_edited(rows = 10, cursor = res$message$`next-cursor`, verbose = TRUE)
#'
#' # facet
#' crev_edited(rows = 0, source = 'reddit', facet = "subj-id.domain:10")
#' crev_edited(rows = 0, source = 'reddit', facet = "subj-id.domain:10")
#' crev_edited(rows = 0, source = 'newsfeed',
#' subj_id_domain = "www.theguardian.com", facet = "obj-id.prefix:*")
#' }
crev_edited <- fxn_factory('events/edited')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.