JSON file should look like '{key:value}' but not ['{key:value}']

2 files changed, 1 insertions, 21 deletions

diff --git a/Code/slice_TPM_to_JSON.R b/Code/slice_TPM_to_JSON.R
deleted file mode 100644
index e7021ef..0000000
--- a/Code/slice_TPM_to_JSON.R
+++ /dev/null
@@ -1,20 +0,0 @@
-
-#library(rjson)
-library(jsonlite)
-dir.name <- '../Data/history/expr/json'
-tpm.file <- '../Data/history/expr/assemble/TPM.6604.txt'
-take.log <- 'YES'
-X <- read.table(tpm.file, header=T, check.names=FALSE, sep="\t")
-gene.id <- as.vector(X[,1])
-X[,1] <- NULL # remove first column
-if (take.log == 'YES') {
-    X <- log(X+1)
-}
-if (!dir.exists(dir.name)) {
-    dir.create(dir.name)
-}
-for (i in 1:dim(X)[1]) {
-            y <- toJSON(X[i,], digits=I(3))
-    file.name = paste(dir.name, paste(gene.id[i], 'json', sep='.'), sep='/')
-    cat(y, file=file.name)
-}
diff --git a/Code/slice_TPM_to_JSON.py b/Code/slice_TPM_to_JSON.py
index 618310f..b2edfa2 100644
--- a/Code/slice_TPM_to_JSON.py
+++ b/Code/slice_TPM_to_JSON.py
@@ -141,7 +141,7 @@ def make_json_file_using_r(dir_name, glb_param_dict): # use r script to make it
 	    dir.create(dir.name)
 	}
 	for (i in 1:dim(X)[1]) {
-	    y <- toJSON(X[i,], digits=I(3))
+	    y <- toJSON(unbox(X[i,]), digits=I(3))
 	    file.name = paste(dir.name, paste(gene.id[i], 'json', sep='.'), sep='/')
 	    cat(y, file=file.name)
 	}