R/JSON.R

In Bjerring/rispackage4: RIS alpha

# returns string w/o leading or trailing whitespace
JSON.OBJ <- function(output){
  no.list <- length(output)
  
  vec <- c()
  for(i in 1:no.list){
    if(i < no.list){
      #tmp <- c(vec,c("[",toString(output[[i]]),"]",","))
      
      tmp <- c(vec,c("[",toString(paste('"', as.character(output[[i]]), '"', sep="")),"]",","))
    }
    if(i == no.list){
      #tmp <- c(vec,c("[",toString(output[[i]]),"]"))
      tmp <- c(vec,c("[",toString(paste('"', as.character(output[[i]]), '"', sep="")),"]"))    
    }
    vec <- tmp
  }
  vec2 <- paste(c("[",paste(vec, collapse = " "),"]"), collapse = " ")
  #out <- as.factor(vec2)
  out <- vec2
  return(out) 
}