From fa719fee177152cc9f5d4632c6aa68b91336f8df Mon Sep 17 00:00:00 2001 From: Lan Hui Date: Mon, 26 Aug 2024 17:50:12 +0800 Subject: JSON file should look like '{key:value}' but not ['{key:value}'] --- Code/slice_TPM_to_JSON.R | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 Code/slice_TPM_to_JSON.R (limited to 'Code/slice_TPM_to_JSON.R') 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) -} -- cgit v1.2.1