Replace DOIs by shortDOIs in CSL JSON

shortdoi.r

#! /usr/bin/env Rscript

library("jsonlite")

filename <- commandArgs(TRUE)[1]

bibdata <- fromJSON(filename, simplifyVector = FALSE, simplifyDataFrame = FALSE, simplifyMatrix = FALSE)

for (n in seq_along(bibdata)) {
	if (exists('DOI', where=bibdata[[n]]))
		{
		getshortdoi <- paste0("curl -sS http://shortdoi.org/", bibdata[[n]]$DOI, "?format=json | grep ShortDOI | cut -f 4 -d '\"'")
		shortdoi <- try(system(getshortdoi, intern = TRUE))
		if (shortdoi=="") {} else {bibdata[[n]]$DOI <- shortdoi}
		}
#	else {}
	}

write(toJSON(bibdata, auto_unbox = TRUE), file = filename)