Write a shields.io endpoint badge for a checked result.

Produces a JSON file suitable for a shields.io endpoint badge, showing the number of retracted citations. Point a badge URL at the hosted file for a README or a paper's landing page.

Usage

badge_json(x, path = "retraction-badge.json")

Arguments

x: A retraction_result.
path: Output path for the JSON. Defaults to "retraction-badge.json".

Value

Invisibly, path.

Examples

# \donttest{
res <- check_dois("10.1016/S0140-6736(97)11096-0")
badge_json(res, tempfile(fileext = ".json"))
# }