JSON.OBJ: JSON converter

In Bjerring/rispackage4: RIS alpha

Usage

JSON.OBJ(output)

Arguments

output

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (output) 
{
    no.list <- length(output)
    vec <- c()
    for (i in 1:no.list) {
        if (i < no.list) {
            tmp <- c(vec, c("[", toString(paste("\"", as.character(output[[i]]), 
                "\"", sep = "")), "]", ","))
        }
        if (i == no.list) {
            tmp <- c(vec, c("[", toString(paste("\"", as.character(output[[i]]), 
                "\"", sep = "")), "]"))
        }
        vec <- tmp
    }
    vec2 <- paste(c("[", paste(vec, collapse = " "), "]"), collapse = " ")
    out <- vec2
    return(out)
  }

Bjerring/rispackage4 documentation built on May 6, 2019, 7:56 a.m.